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1.  Introduction 


As  more  and  more  information  becomes  available  about  the  battlefield,  the  soldier  of  tomorrow 
will  be  expected  to  integrate  and  synthesize  various  bits  of  information  into  a  meaningful  format 
which  will  (it  is  hoped)  allow  the  soldier  to  achieve  maximum  battlefield  effectiveness.  The 
infantry  soldier  is  critical  to  the  United  States  in  achieving  battlefield  dominance,  and  at  the  same 
time,  the  infantry  soldier  is  becoming  more  responsible  for  organizing  information  into  a 
coherent  plan  of  attack.  Studying  how  the  soldier  interprets  and  synthesizes  information  while 
he  does  other,  more  traditional  infantry  duties  (i.e.,  shooting  a  rifle)  will  help  us  understand  how 
best  to  present  information  and  how  to  plan  system  design  activities. 

Cognitive  workload  and  dual  task  performance  have  been  studied  extensively  by  a  number  of 
researchers,  some  of  whom  have  developed  influential  theories  about  the  subject  matter 
(Atkinson,  Hernstein,  Lindzey,  &  Luce,  1988;  Damos,  1991;  Gopher  &  Donchin,  1986;  Meyer  & 
Kornblum,  1993).  However,  there  is  still  no  cohesive  scientific  theoretical  viewpoint.  One  of 
the  most  recent  theories.  Multiple  Resource  Theory  (MRT)  (Wickens,  1984),  has  been  criticized 
as  not  being  predictive  enough  because  it  “lacks  principled  constraints”  (Neumann,  1987). 

Indeed,  many  theoretical  frameworks  lack  predictive  power,  which  is  more  likely  to  be  afforded 
to  a  computational  cognitive  architecture. 

The  goal  of  this  project  was  to  develop  a  predictive  computational  cognitive  model  that  would 
predict  human  error  performance  in  future  data  gathered  by  the  Human  Research  and  Engineering 
Directorate  of  the  U.S.  Army  Research  Laboratory  (ARE).  Data  from  a  study  about  shooting 
performance  under  cognitive  load  (aurally  presented  math  task)  were  used  in  the  baseline 
computational  model.  A  future  study  was  planned  to  change  the  condition  of  presentation  of  the 
math  problems  to  a  visual  instead  of  an  aural  modality.  Errors  in  shooting  performance  (i.e., 
shooting  at  a  friendly  target  or  not  shooting  at  an  enemy  target)  made  during  the  visual 
presentation  of  math  problems  would  be  the  predictive  condition  for  the  cognitive  model. 

Models  were  developed  in  Atomic  Components  of  Thought  -  Rational  (ACT-R)  (Anderson  & 
Lebiere,  1998)  and  the  Improved  Performance  Research  and  Integration  Tool  (IMPRINT) 
(Allender  et  ak,  1995).  ACT-R  is  freely  available  for  Government  and  academic  research  from 
Carnegie  Mellon  University.  It  is  a  symbolic  production  system  architecture  that  is  capable  of 
low-level  representations  of  memory  structures.  ACT-R  is  implemented  in  the  common  Lisp 
programming  language  as  a  collection  of  Lisp  functions  and  subroutines  that  can  be  accessed  by 
the  cognitive  modeler.  Eor  this  project,  we  used  Macintosh  common  Lisp  and  ACT-R  4.0 
running  on  a  G4  Apple  Macintosh  computer  with  operating  system  9.2.  IMPRINT  is  a 
stochastic,  task  network  modeling  tool  developed  by  ARL  for  analyzing  system  design 
alternatives;  it  simulates  how  task  time  and  task  accuracy  data  potentially  affect  overall  mission 
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performance.  For  the  IMPRINT  analysis,  we  used  a  Dell  OptiPlex  GX  400  running  Windows 
98. 


2.  Procedure 


The  data  used  for  the  ACT-R  model  came  from  a  dual  task  experiment  completed  by  ARL 
(Scribner  &  Harper,  2001).  Soldiers  completed  two  tasks  simultaneously.  The  primary  task  was 
shooting  and  the  secondary  task  was  mathematical. 

The  shooting  task  consisted  of  a  24-target  “pop-up”  scenario  using  friendly  (gray  or  white 
circular  marking  on  the  chest  of  the  target)  and  enemy  (olive  drab  green)  E-type  silhouette 
targets.  Half  of  the  targets  were  friendly  and  half  were  enemy.  Targets  were  situated  at 
distances  of  50,  100,  150,  200,  250,  and  300  meters.  Target  exposure  times  were  4,  3,  and 
2  seconds.  M16A2  rifles  with  iron  sights  were  used  for  the  original  study.  The  mathematical 
tasks  consisted  of  addition  problems,  presented  through  earphones,  which  the  soldier  processed 
and  responded  to  before  he  heard  a  completion  tone.  A  moderate  level  of  mathematical  problem 
solving  was  chosen  because  of  its  workload,  sensitivity,  and  perceived  difficulty  characteristics. 
The  problems  consisted  of  adding  double-digit  and  single-digit  numbers. 


3.  ACT-R  Model  Development 


MRT,  as  presented  by  Wickens  (1984),  concentrates  on  four  aspects  of  resources  that  are 
allocated  to  every  task:  stages,  responses,  modalities,  and  codes.  Stages  here  refer  to  the  area 
(encoding,  central  processing,  or  responding)  where  the  workload  is  occurring.  Responses  refer 
to  the  type  of  output  (manual  or  vocal).  Modalities  refer  to  visual  or  auditory,  and  codes  refer  to 
spatial  or  verbal  codes.  Whereas  these  four  aspects  of  resources  might  indicate  an  overlap  in  one 
resource  or  another  (in  terms  of  modality,  codes,  responses,  or  stages),  the  four  stages  give  no 
indication  of  time  sharing  across  tasks. 

Eight  ACT-R  models  were  developed  for  this  project:  a  simulation  of  the  4-,  3-,  and  2-second 
exposure  times  of  the  targets  with  audio  presentation  of  the  secondary  task;  a  simulation  of  4-, 

3-,  and  2-second  exposure  times  with  no  cognitive  load  (i.e.,  no  presentation  of  a  secondary  task) 
and  two  predictive  models  (one  for  2  seconds  and  one  for  4  seconds)  of  the  visual  condition  (i.e., 
math  problems  presented  visually).  The  models  were  developed  to  simulate  an  average  soldier 
in  a  typical  condition  (i.e.  there  was  not  one  model  developed  for  each  subject).  The  models 
were  developed  to  run  for  120  seconds,  which  was  equal  to  one  condition  for  each  subject.  The 
cognitive  architecture  ACT-R  allowed  for  a  simulated  outside  world,  presenting  either  targets  or 
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math  problems  to  the  model  at  the  same  time  intervals  as  indicated  by  the  experimental  data 
presented  in  Scribner  and  Harper  (2001). 

It  was  hypothesized  that  the  primary  factor  affecting  the  error  rates  would  be  the  amount  of  time 
the  target  was  available  for  cognitive  processing  (i.e.,  target  exposure).  Therefore,  one  of  the 
most  important  aspects  that  the  models  had  to  simulate  was  the  amount  of  time  that  each  target 
was  available  for  viewing.  Once  this  was  identified,  the  model  architecture  assigned  a  value 
(similar  to  memory  decay)  to  the  total  amount  of  viewing  time. 

In  order  to  simulate  the  perceptual  aspects  of  the  outside  world,  the  models  used  “mod-chunk” 
calls  (see  Appendix  A).  Mod-chunk  calls  had  been  used  successfully  in  other  models  to  simulate 
the  outside  world  (Kelley,  Patton,  &  Allender,  2001).  A  mod-chunk  call  modifies  a  declarative 
memory  element  at  a  specific  time,  which  would  be  analogous  to  viewing  new  information  at  a 
specific  time.  The  models  simulated  a  complete  120-second  condition.  At  appropriate  times, 
which  were  consistent  with  each  experimental  condition,  a  mod-chunk  call  was  used  to  simulate 
the  outside  world  with  the  presentation  of  either  targets  or  math  problems.  Since  the  shooting 
task  was  considered  the  primary  task,  the  model  defaulted  to  completing  the  shooting  task  over 
the  mathematical  calculations. 

Certain  variables  were  ignored  for  the  model  development  because  these  were  considered 
primarily  perceptual  variables — something  that  ACT-R  is  just  now  beginning  to  model  in  a 
detailed,  principled  fashion  (Byrne  &  Anderson,  2001).  Implementation  of  the  perceptual 
variables  within  the  models  created  some  difficulties  since  the  task  obviously  has  a  large 
perceptual  component.  In  the  end,  many  of  the  perceptual  aspects  of  the  task  were  handled  as 
simply  as  possible.  For  example,  the  models  did  not  include  distinctions  between  gray  targets 
and  white  targets  or  implementation  of  target  distances  as  variables.  Both  friendly  target  color 
(gray  or  white)  and  target  distances  were  balanced  evenly  within  each  condition,  so  it  was 
considered  a  constant  variable  and  was  not  modeled  directly.  For  instance,  only  one  type  of 
friendly  target  signature  (gray  or  white)  was  presented  during  each  120-second  run.  The  models 
were  essentially  presented  as  friendly  and  enemy  targets,  making  no  distinction  between  friendly 
gray  targets  and  friendly  white  targets.  In  order  to  model  the  different  target  signatures,  another 
separate  model  incorporating  gray  and  white  target  signatures  could  have  been  created  with  an 
appropriate  variable  corresponding  to  target  signatures;  however,  this  is  beyond  the  scope  of  the 
current  implementations  of  ACT-R. 

One  of  the  most  important  variables  was  the  timing  of  target  presentation  and  presentation  of 
each  math  problem.  The  models  had  to  capture  the  asynchrony  between  the  targets  and  the  math 
problems  being  presented  aurally.  For  example,  for  each  target  exposure  time  (2  and  4  seconds), 
the  presentation  of  the  math  problems  was  kept  at  a  constant  6  seconds.  The  time  allotted  for  the 
simulation  presentation  was  approximately  2.2  seconds,  depending  on  the  problem,  and  the  time 
allotted  for  the  response  was  approximately  2.8  seconds.  A  tone  was  also  presented  (to  indicate 
when  the  response  time  expired)  and  some  dead  time  as  well,  all  of  which  totaled  approximately 
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6  seconds.  Therefore,  the  response  time  was  kept  at  a  constant  6  seconds,  while  the  friendly  and 
enemy  target  presentation  times  varied,  depending  on  the  condition.  This  led  to  different  lengths 
of  time  between  target  presentation  and  math  problem  presentation  for  each  of  the  exposure 
conditions.  Also,  depending  on  the  condition,  the  target  and  the  math  problems  were  presented 
at  the  same  time,  while  at  other  times,  they  were  presented  asynchronously,  which  created 
differences  in  stimulus  onset  asynchrony.  Developing  the  models  enabled  the  subtleties  of  this 
overlap  in  stimulus  presentation  to  be  captured  and  analyzed. 

During  the  mathematical  computation,  the  model  performed  the  task  as  an  incremental  counting 
task  instead  of  a  memory  retrieval  task.  For  example,  if  the  math  problem  was  36  +  7,  an  incre¬ 
mental  counting  strategy  involved  counting  7  digits  from  36  to  43.  However,  a  memory  retrieval 
strategy  might  involve  retrieving  6  -t-  7  =  13  and  then  changing  the  10s  digit  to  a  4  to  be  consis¬ 
tent  with  the  problem  (36  -t-  7).  The  model  used  incremental  counting  because  this  was 
consistent  with  reports  from  the  experimenters  that  many  subjects  were  counting  in  order  to 
solve  the  problems  and  not  using  memory  retrievals.  While  some  subjects  were  using  memory 
retrieval  methods  for  solving  the  mathematical  problems  (and  such  a  method  could  be 
implemented  into  each  model),  the  predictive  power  of  the  models  was  not  significantly 
changed.  If  a  target  was  presented  during  the  incremental  counting  task,  the  model  responded 
that  there  was  not  enough  time  to  complete  the  mathematical  calculation. 

The  commented  code  for  each  model  is  presented  in  the  Appendices.  Appendix  A  presents  the 
4-second  exposure  time  baseline  model.  Appendix  B  presents  the  commented  code  for  the 
2-second  exposure  time  baseline  model,  and  Appendix  C  presents  the  2-second  exposure  time 
predicted  visual  condition  code.  Appendix  D  presents  the  code  for  the  2-second  exposure  time  in 
the  no-load  condition. 


4.  Results  and  Discussion 


Figure  1  shows  the  ACT-R  model  predicted  results  for  the  2-  and  4  second  visual  conditions. 

The  predictions  show  that  the  number  of  errors  committed  in  the  visual  condition  should  be 
about  equal  to  the  number  of  errors  committed  in  the  auditory  condition. 

The  predictions  are  based  on  the  relationship  between  the  exposure  times  and  the  error 
percentage  represented  in  the  baseline  data.  The  relationship  yielded  a  linear  correlation  of 
r  (6)  =  -.65,  p  =  .15.  Other  types  of  nonlinear  relationships  were  explored,  but  they  did  not  yield 
results  that  were  any  more  significant  than  the  linear  relationship  (note  that  the  linear  relationship 
is  not  significant  either).  Exposure  times  were  essentially  converted  by  the  model  to  activation 
levels,  depending  on  the  amount  of  time  the  target  was  available  for  cognitive  processing.  The 
activation  levels  were  then  correlated  to  error  rates  in  the  baseline  data;  a  regression  equation 
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was  used  to  make  the  predictions  for  the  2-  and  4-second  visual  conditions.  Table  1  shows  the 
regression  equation  values  for  error  prediction. 


Figure  1.  Activation  values  and  percentage  of  errors  for  (a)  the  4-,  3-,  and  2-second 
no  load  (NL);  (b)  the  4-,  3-,  and  2-second  with  math  problems  being 
presented  aurally;  and  (c)  the  two  prediction  values  for  the  2-  and  4- 
second  visual  conditions. 


Table  1.  Regression  equation  values 


Variable 

B 

SEB 

Beta 

Error  Percentage 

-12.030 

6.97 

.889 

Figure  2  shows  a  workload  analysis  that  uses  IMPRINT.  IMPRINT  employs  a  simplified 
version  of  the  MRT  of  workload  (Wickens  &  Yeh,  1986).  IMPRINT  also  includes  workload 
estimation  scales  developed  by  McCracken  and  Aldrich  (1984),  which  allow  the  analyst  to  assign 
normalized  workload  values  to  each  perceptual  channel.  There  are  four  perceptual  channels: 
visual,  auditory,  cognitive,  and  psychomotor.  The  results  of  the  IMPRINT  analysis  are  shown  in 
Figure  2.  The  figure  shows  that  the  overall  workload  (combined  total  of  all  the  perceptual 
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channels)  for  the  auditory  condition  and  the  predicted  visual  condition  are  about  equal.  There  is 
a  sharp  decline  for  the  visual  condition  and  auditory  condition  at  about  1.25  seconds,  and  this 
could  be  significant.  However,  it  is  difficult  to  make  predictions  about  error  rates  from  a 
workload  model.  The  previously  discussed  ACT-R  models  seem  to  suggest  that  below  a  certain 
level  of  activation  (about  .6),  errors  start  to  increase  dramatically  (this  was  one  reason  a 
nonlinear  regression  equation  was  explored).  The  IMPRINT  model  seems  to  suggest  that  the 
visual  workload  is  lower  over  time,  but  the  overall  activation  levels  (produced  by  the  ACT-R 
model)  indicated  that  the  lower  level  of  workload  has  no  impact  since  the  activation  level  will 
still  be  under  .6.  While  IMPRINT  does  not  give  a  precise  prediction  for  overall  error  rates  in  the 
way  ACT-R  does,  the  IMPRINT  analysis  does  offer  some  insight  to  the  predictions. 


Figure  2.  Total  workload  over  time  for  the  2-second  condition,  auditory  condition,  and 
visual  prediction. 


In  summary,  results  from  this  modeling  effort  indicated  that  for  the  primary  task  of  shooting, 
both  a  visual  secondary  task  and  an  auditory  secondary  task  should  yield  about  the  same  number 
of  errors.  This  result  was  generated  with  a  regression  equation  that  incorporated  ACT-R 
activation  values  as  predictor  variables  for  the  regression  equation.  The  results  are  also  based  on 
the  existing  auditory  condition  error  rate  data,  which  were  taken  from  the  Scribner  and  Harper 
(2001)  study. 

Prediction  of  cognitive  workload  and  its  effects  on  human  error  is  one  of  the  most  challenging 
tasks  that  the  human  factors  community  must  address  in  the  years  to  come.  Theoretically  based 
computational  cognitive  models  allow  for  a  way  to  capture  aspects  of  cognitive  workload  which 
cannot  be  addressed  by  non-computational  theories.  This  project  also  allowed  us  to  explore  the 
problems  associated  with  human  error  prediction  by  the  use  of  cognitive  modeling. 
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One  problem  with  human  error  prediction  is  that  typical  error  performance  falls  between  a  range 
of  values.  So  the  question  for  the  cognitive  modeler  is  how  to  transfer  the  range  of  human  values 
to  a  range  of  predicted  values.  When  the  modeler  is  predicting  human  error  with  a  cognitive 
model  that  has  a  stochastic  output,  he  or  she  can  set  the  degree  of  stochastic  variability  of  the 
output.  In  other  words,  a  modeler  could  create  a  large  amount  or  a  small  amount  of  predicted 
error  variability.  Probably  the  best  solution  is  to  transfer  the  average  error  from  the  human  data 
to  the  model’s  predicted  performance.  However,  for  this  project,  no  agreement  was  reached 
about  how  to  predict  the  error  variability. 

This  report  documents  the  modeling  of  error  prediction  based  on  target  exposure  time.  There  are 
a  few  possibilities  that  would  create  problems  for  these  predictions.  For  example,  the  visual 
short-term  memory  store  is  not  as  long  as  the  auditory  short-term  memory  store  (Neisser,  1967). 
This  could  create  problems  for  soldiers  in  the  visual  condition,  who  will  be  trying  to  remember 
math  problems  while  they  are  trying  to  identify  targets.  However,  if  they  do  forget  the  math 
problems,  they  can  always  refresh  their  memory  by  glancing  at  the  display  screen  where  the 
math  problems  are  situated.  Task- sharing  efficiency  might  therefore  outweigh  any  memory 
decay  effects  associated  with  visual  and  auditory  memory  stores.  Secondly,  a  response  bias 
could  be  expressed  during  each  experimental  trial.  For  example,  if  the  last  target  was  an  enemy, 
subjects  would  be  more  likely  to  identify  the  next  target  as  an  enemy  and  would  also  be  more 
inclined  to  shoot.  This  is  something  that  could  be  examined  within  ACT-R  and  may  require 
more  research  if  the  predictions  here  are  incorrect.  Finally,  the  placement  of  the  visual  images 
that  display  the  math  problems  is  critical  to  avoid  confusion  between  the  two  different  stimuli 
(targets  and  math  problems).  The  math  problem  display  should  be  relatively  close  to  the  target 
information  without  overlapping  any  of  the  target  display  area.  In  many  ways,  the  ACT-R  model 
represents  an  optimally  positioned  math  problem  display,  and  variations  from  a  optimally 
positioned  display  would  be  likely  to  produce  more  errors  than  those  predicted  by  the  model. 

The  soldier  of  tomorrow  will  be  expected  to  process  more  cognitive  information  about  the 
battlefield  situation.  This  research  outlines  potential  bottlenecks  in  the  cognitive  workload, 
which  future  soldiers  could  face.  Future  research  will  validate  the  predictions  made  by  the 
ACT-R  and  the  IMPRINT  architectures.  It  is  hoped  that  the  predictions  made  by  both 
architectures  will  eventually  prove  to  be  valid  and  will  eventually  be  used  to  aid  in  system 
design. 


7 


5.  References 


Allender,  L.,  Kelley,  T.D.,  Salvi,  L.,  Lockett,  J.,  Headley,  D.  B.,  Promisel,  D.,  Mitchell,  D., 
Richer,  C.,  Feng,  T.  Verification,  Validation,  and  Accreditation  of  a  Soldier-System 
Modeling  Tool.  Proceedings  of  the  Human  Factors  and  Ergonomics  Society  29th  Annual 
Meeting,  pp.  1219-1223,  San  Diego,  1995. 

Anderson,  J.R.,  Lebiere,  C.,  The  Atomic  Components  of  Thought,  Lawrence  Erlbaum  Associates: 
Mahwah,  NJ,  1998. 

Atkinson,  R.C.,  Hernstein,  R.J.,  Lindzey,  G.,  Luce,  R.D.,  Eds.  Steven’s  Handbook  of 
Experimental  Psychology,  2nd  ed.,  Wiley:  New  York,  1988. 

Byrne,  M.D.,  Anderson,  J.R.,  Serial  Modules  in  Parallel:  The  Psychological  Refractory  Period 
and  Perfect  Time  Sharing,  Psychological  Review,  2001,  108,  847-869. 

Damos,  D.E.,  Multiple  Task  Performance.  Taylor  &  Erancis:  Eondon,  England,  1991. 

Gopher,  D.,  Dochin,  E.,  Workload:  An  Examination  of  the  Concept.  In  Handbook  of  Perception 
and  Human  Performance,  Vol  2:  Cognitive  Processes  and  Performance,  Boff,  K.R., 
Kaufman,  E.,  Thomas,  J.P.,  Eds.,  Wiley:  New  York,  1986,  pp.  41.1-41.49. 

Kelley,  T.D.,  Patton,  D.J.,  Allender,  E.,  Predicting  Situation  Awareness  Errors  Using  Cognitive 
Modeling.  In  Proceedings  of  Human-Computer  Interaction  International  2001  Conference, 
Vol.  1 :  Usability  Evaluation  and  Interface  Design:  Cognitive  Engineering,  Intelligent 
Agents  and  Virtual  Reality.  In  Smith,  M.J.,  Salvendy,  G.,  Harris,  D.,  Koubek,  R.J.,  Eds., 
Eawrence  Erlbaum  Associates:  Mahwah,  NJ,  2001,  pp.  1455-1459. 

McCracken,  J.H.,  Aldrich,  T.B.,  Analyses  of  Selected  LHX  Mission  Eunctions:  Implications  for 
Operator  Workload  and  System  Automation  Goals,  Technical  Note  ASI479-024-84,  Army 
Research  Institute,  Aviation  Research  and  Development  Activity:  Eort  Rucker,  AE,  1984. 

Meyer,  D.E.,  Kornblum,  S.,  Eds.,  Attention  and  Performance  XIV:  Synergies  in  Experimental 
Psychology,  Artificial  Intelligence,  and  Cognitive  Neuroscience,  MIT  Press:  Cambridge, 
MA,  1993. 

Neisser,  U.,  Cognitive  Psychology.  Appleton-Century-Crofts:  New  York,  1967. 

Neumann,  O.,  Beyond  Capacity:  A  Eunctional  View  of  Attention.  In  Perspectives  on 

Perception  and  Action,  Heuer,  H.,  Sanders  A.P.,  Eds.,  Eawrence  Erlbaum  Associates: 
Hillsdale,  NJ,  1987,  pp.  361-394. 

Scribner,  D.R.,  The  Effect  of  Cognitive  Eoad  and  Target  Characteristics  on  Soldier  Shooting 
Performance  and  Eriendly  Targets  Engaged,  ARE-TR-2838,  U.S.  Army  Research 
Eaboratory:  Aberdeen  Proving  Ground,  MD,  2002. 


Scribner,  D.R.,  Harper,  W.H.,  The  Ejfects  of  Mental  Workload:  Soldier  Shooting  and  Secondary 
Cognitive  Task  Performance,  ARL-TR-2525,  U.S.  Army  Research  Laboratory:  Aberdeen 
Proving  Ground,  MD,  2001. 

Wickens,  C.D.  Processing  Resources  in  Attention,  In  Varieties  of  Attention,  Parasuraman,  R., 
Beatty,  J.,  Davies,  R.,  Eds.,  Wiley:  New  York,  1984,  pp.  63-101. 

Wickens,  C.D.,  Yeh,  Y-Y.,  A  Multiple  Resource  Model  of  Workload  Prediction  and  Assessment. 
In  Proceedings  of  the  IEEE  Conference  on  Systems,  Man,  and  Cybernetics,  Atlanta,  GA, 
1986. 


9 


Intentionally  left  blank 


10 


Appendix  A.  ACT-R  Code  for  4-second  Exposure  Time,  Auditory  Condition 


; ;  Troy  Kelley 

;;  Army  Research  Laboratory,  September  2002 

;;  This  is  code  that  simulates  data  taken  from  a  study  called  -The  Effect  of  Cognitive  Load 
; ;  and  Target  Characteristics  on  Soldier  Shooting  Performance  and  Friendly  Targets  Engaged-  by 
;;  David  R.  Scribner 


; ;  This  is  our  time  tracker  function  which  will  modify  chunks  at  certain  time  intervals 
;;  to  simulate  the  outside  world 


;;  This  will  run  the  model  multiple  times 

(defun  myrun  (X) 

(dotimes  (i  X) 

( run) 

(reset) )  ) 

; ;  we  call  this  function  after  we  answer  the  question  to  set  the  problem  flag  to  problem  complete 
;;  Otherwise  we  will  try  and  answer  the  question  again. 

(defun  zero  () 

(mod-chunk  insidel  problemcomplete  1)) 

; ;  4  second  cycle 


(defun  timetracker  (x) 

; ;  at  zero  time  a  math  problem  starts  and  a  target  pops  up  -  this  is  set  in  our  declarative 
; ;  memory.  The  numbers  in  the  conditional  statement  correspond  to  time  values.  So,  in  the 
; ;  first  conditional  statement,  between  1.9  and  2.3  seconds,  the  sound  chunk  gets  set  to 
zero . 

; ;  The  sound  slot  having  a  value  of  0  means  that  the  problem  is  not  being  read  and  conversly, 
; ;  the  sound  slot  value  of  1  means  that  a  problem  is  being  read.  The  same  is  true  for  the 
; ;  target  slot  in  the  outl  chunk.  Target  1  means  that  a  target  is  visible,  while  target  0 
; ;  means  that  there  is  no  target. 


; ;  math  problem  completes 
(cond  ((and  (>  x  1.9)  (<  x  2.3)) 

(mod-chunk  outl  sound  0)  )  ) 

; ;  target  down 

(cond  ((and  (>  x  3.9)  (<  x  4.3)) 

(mod-chunk  outl  target  0))) 

; ;  type  FriendlyGray  is  never  really  used.  It  is  a  left  over  from  older  code 

; ;  target  up  -  2 

(cond  ((and  (>  x  4.9)  (<  x  5.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  starts 

(cond  ((and  (>  x  5.9)  (<  x  6.3)) 

(mod-chunk  outl  sound  1))) 

; ;  once  a  problem  completes  we  need  to  re-initialize  some  values 

(cond  ((and  (>  x  7.9)  (<  x  8.3)) 

(mod-chunk  outl  sound  0) 
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(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  38  secondnum  8))) 

; ;  target  down 

(cond  ((and  (>  x  8.9)  (<  x  9.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up  -  3 

(cond  ((and  (>  x  9.9)  (<  x  10.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  starts 

(cond  ((and  (>  x  11.9)  (<  x  12.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down  and  problem  complete 
(cond  ((and  (>  x  13.9)  (<  x  14.3)) 

(mod-chunk  outl  sound  0  target  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  29  secondnum  9))) 

; ;  target  up  -4 

(cond  ((and  (>  x  14.9)  (<  x  15.3)) 

(mod-chunk  outl  sound  0  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  17.9)  (<  x  18.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  18.9)  (<  x  19.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up  and  end  listening  to  problem  -  5 
(cond  ((and  (>  x  19.9)  (<  x  20.3)) 

(mod-chunk  outl  target  1  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  39  secondnum  5) 
(mod-chunk  targettypel  type  enemy) 

)  ) 

; ;  target  down  and  begin  next  problem 
(cond  ((and  (>  x  23.9)  (<  x  24.3)) 

(mod-chunk  outl  target  0  sound  1) ) ) 

; ;  target  up-6 

(cond  ((and  (>  x  24.9)  (<  x  25.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) 

)  ) 

; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  25.9)  (<  x  26.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  34  secondnum  6))) 

; ;  target  down 

(cond  ((and  (>  x  28.9)  (<  x  29.3)) 

(mod-chunk  outl  target  0))) 
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; ;  target  up  and  begin  next  problem-7 
(cond  ((and  (>  x  29.9)  (<  x  30.3)) 

(mod-chunk  outl  target  1  sound  1) 

(mod-chunk  targettypel  type  f riendlyGray) 

)  ) 

; ;  math  problem  completes 
(cond  ((and  (>  x  31.9)  (<  x  32.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  88  secondnum  3))) 

; ;  target  down 

(cond  ((and  (>  x  33.9)  (<  x  34.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up-8 

(cond  ((and  (>  x  34.9)  (<  x  35.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) 

)  ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  35.9)  (<  x  36.3)) 

(mod-chunk  outl  sound  1))) 

;  ;  math  problem  completes 

(cond  ((and  (>  x  37.9)  (<  x  38.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  41  secondnum  9))) 

; ;  target  down 

(cond  ((and  (>  x  38.9)  (<  x  39.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up-9 

(cond  ((and  (>  x  39.9)  (<  x  40.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) 

)  ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  41.9)  (<  x  42.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down  and  problem  complete 
(cond  ((and  (>  x  43.9)  (<  x  44.3)) 

(mod-chunk  outl  sound  0  target  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  61  secondnum  9))) 

; ;  target  up-10 

(cond  ((and  (>  x  44.9)  (<  x  45.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) 

)  ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  47.9)  (<  x  48.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  48.9)  (<  x  49.3)) 

(mod-chunk  outl  target  0))) 
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target  up  and  end  listening  to  problem-11 
(cond  ((and  (>  x  49.9)  (<  x  50.3)) 

(mod-chunk  outl  target  1  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  85  secondnum  6) 
(mod-chunk  targettypel  type  enemy) 

)  ) 

; ;  target  down  and  begin  next  problem 
(cond  ((and  (>  x  53.9)  (<  x  54.3)) 

(mod-chunk  outl  target  1  sound  1) ) ) 

; ;  target  up-12 

(cond  ((and  (>  x  54.9)  (<  x  55.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) 

)  ) 

; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  55.9)  (<  x  56.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  32  secondnum  9))) 

; ;  target  down 

(cond  ((and  (>  x  58.9)  (<  x  59.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up  and  begin  next  problem-13 
(cond  ((and  (>  x  59.9)  (<  x  60.3)) 

(mod-chunk  outl  target  1  sound  1) 

(mod-chunk  targettypel  type  enemy) 

)  ) 

; ;  math  problem  completes 
(cond  ((and  (>  x  61.9)  (<  x  62.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  69  secondnum  3))) 

; ;  target  down 

(cond  ((and  (>  x  63.9)  (<  x  64.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up-14 

(cond  ((and  (>  x  64.9)  (<  x  65.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  65.9)  (<  x  66.3)) 

(mod-chunk  outl  sound  1))) 

; ;  math  problem  completes 

(cond  ((and  (>  x  67.9)  (<  x  68.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  57  secondnum  7))) 

; ;  target  down 

(cond  ((and  (>  x  68.9)  (<  x  69.3)) 

(mod-chunk  outl  target  0))) 
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; ;  target  up-15 

(cond  ((and  (>  x  69.9)  (<  x  70.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  71.9)  (<  x  72.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down  and  problem  complete 
(cond  ((and  (>  x  73.9)  (<  x  74.3)) 

(mod-chunk  outl  sound  0  target  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  19  secondnum  9))) 

;;  target  up-16 

(cond  ((and  (>  x  74.9)  (<  x  75.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  77.9)  (<  x  78.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  78.9)  (<  x  79.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up  and  end  listening  to  problem-17 
(cond  ((and  (>  x  79.9)  (<  x  80.3)) 

(mod-chunk  outl  target  1  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  67  secondnum  9) 
(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down  and  begin  next  problem 
(cond  ((and  (>  x  83.9)  (<  x  84.3)) 

(mod-chunk  outl  target  1  sound  1) ) ) 

; ;  target  up-18 

(cond  ((and  (>  x  84.9)  (<  x  85.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  85.9)  (<  x  86.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  74  secondnum  8))) 

; ;  target  down 

(cond  ((and  (>  x  88.9)  (<  x  89.3)) 

(mod-chunk  outl  target  0))) 

;;  target  up  and  begin  next  problem-19 
(cond  ((and  (>  x  89.9)  (<  x  90.3)) 

(mod-chunk  outl  target  1  sound  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  completes 
(cond  ((and  (>  x  91.9)  (<  x  92.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
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(mod-chunk  probleml  firstnum  48  secondnum  8))) 


; ;  target  down 

(cond  ((and  (>  x  93.9)  (<  x  94.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up-20 

(cond  ((and  (>  x  94.9)  (<  x  95.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  95.9)  (<  x  96.3)) 

(mod-chunk  outl  sound  1))) 

;  ;  problem  complete 

(cond  ((and  (>  x  97.9)  (<  x  98.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  76  secondnum  4))) 

; ;  target  down 

(cond  ((and  (>  x  98.9)  (<  x  99.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up-21 

(cond  ((and  (>  x  99.9)  (<  x  100.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

;  ;  math  problem  starts 

(cond  ((and  (>  x  101.9)  (<  x  102.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down  and  problem  complete 
(cond  ((and  (>  x  103.9)  (<  x  104.3)) 

(mod-chunk  outl  sound  0  target  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  45  secondnum  7))) 

; ;  target  up-22 

(cond  ((and  (>  x  104.9)  (<  x  105.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  107.9)  (<  x  108.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  108.9)  (<  x  109.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up  and  end  listening  to  problem-23 
(cond  ((and  (>  x  109.9)  (<  x  110.3)) 

(mod-chunk  outl  target  1  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  88  secondnum  3) 
(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down  and  begin  next  problem 
(cond  ((and  (>  x  113.9)  (<  x  114.3)) 

(mod-chunk  outl  target  1  sound  1) ) ) 

; ;  target  up-24 

(cond  ((and  (>  x  114.9)  (<  x  115.3)) 
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(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  end  listening  to  math  problem 

(cond  ((and  (>  x  115.9)  (<  x  116.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  38  secondnum  6))) 

; ;  target  down 

(cond  ((and  (>  x  118.9)  (<  x  119.3)) 

(mod-chunk  outl  target  0))) 


; ;  ending  problem 

(cond  ((and  (>  x  125.9)  (<  x  126.3)) 

(mod-chunk  outl  target  nil  sound  nil) ) ) 


) 


(clear-all) 


;;  Note  that  we  have  the  latency  factor  -  If  -  set  very  low.  This  is  because  we  really  don't 
care 

; ;  about  time  in  the  traditional  sence,  we  only  care  that  our  conditional  statements  up  above 
will  get 

;;  triggered  at  the  correct  times.  If  our  latencey  factor  was  too  long,  we  might  go  into  some 
;;  decision  process  and  come  out  3  or  4  seconds  later,  which  would  mean  our  conditional 
statements 

; ;  up  above  would  not  trip  at  the  correct  times. 

(sgp  :lf  .1  : rt  0.0  :bll  .5  :blc  20  :ga  10.0  :al  2.0) 


(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 


count-order  first  second) 
count-from  start  end) 
outside  sound  target) 
begin) 

problem  firstnum  secondnum) 
increment  numl  counter) 
target ) 

targettype  size  type) 
check) 

inside  soundcomplete  targetchecked  problemcomplete  0) 
shoot ) 


(add-dm 

(enemy  isa  chunk) 

( f riendlyGray  isa  chunk) 

( f riendlyWhite  isa  chunk) 

(checkl  isa  check) 

(beginl  isa  begin) 

(targetl  isa  target) 

(shootl  isa  shoot) 

(insidel  isa  inside  soundcomplete  0  targetchecked  0  problemcomplete  0) 
(targettypel  isa  targettype  size  0  type  enemy) 

(incrementl  isa  increment  numl  0  counter  0) 

(probleml  isa  problem  firstnum  55  secondnum  9) 

(outl  isa  outside  sound  1  target  1) 

(countfroml  isa  count-from  start  0) 


(chunkl 

isa 

count-order 

first 

1 

second 

2) 

(chunk2 

isa 

count-order 

first 

2 

second 

3) 

(chunk3 

isa 

count-order 

first 

3 

second 

4) 

(chunk4 

isa 

count-order 

first 

4 

second 

5) 

(chunk5 

isa 

count-order 

first 

5 

second 

6) 

(chunk6 

isa 

count-order 

first 

6 

second 

7) 

(chunk? 

isa 

count-order 

first 

7 

second 

8) 

(chunk8 

isa 

count-order 

first 

8 

second 

9) 

(chunk9 

isa 

count-order 

first 

9 

second 

10) 
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(chunklO 

isa 

count-order 

first 

10 

second 

11) 

(chunkll 

isa 

count-order 

first 

11 

second 

12) 

(chunkl2 

isa 

count-order 

first 

12 

second 

13) 

(chunkl3 

isa 

count-order 

first 

13 

second 

14) 

(chunkl4 

isa 

count-order 

first 

14 

second 

15) 

(chunklS 

isa 

count-order 

first 

15 

second 

16) 

(chunkl6 

isa 

count-order 

first 

16 

second 

17) 

(chunkl7 

isa 

count-order 

first 

17 

second 

18) 

(chunklS 

isa 

count-order 

first 

18 

second 

19) 

(chunkl9 

isa 

count-order 

first 

19 

second 

20) 

(chunk20 

isa 

count-order 

first 

20 

second 

21) 

(chunk21 

isa 

count-order 

first 

21 

second 

22) 

(chunk22 

isa 

count-order 

first 

22 

second 

23) 

(chunk23 

isa 

count-order 

first 

23 

second 

24) 

(chunk24 

isa 

count-order 

first 

24 

second 

25) 

(chunk25 

isa 

count-order 

first 

25 

second 

26) 

(chunk26 

isa 

count-order 

first 

26 

second 

27) 

(chunk27 

isa 

count-order 

first 

27 

second 

28) 

(chunk28 

isa 

count-order 

first 

28 

second 

29) 

(chunk29 

isa 

count-order 

first 

29 

second 

30) 

(chunk30 

isa 

count-order 

first 

30 

second 

31) 

(chunk31 

isa 

count-order 

first 

31 

second 

32) 

(chunk32 

isa 

count-order 

first 

32 

second 

33) 

(chunk33 

isa 

count-order 

first 

33 

second 

34) 

(chunk34 

isa 

count-order 

first 

34 

second 

35) 

(chunk35 

isa 

count-order 

first 

35 

second 

36) 

(chunk36 

isa 

count-order 

first 

36 

second 

37) 

(chunk37 

isa 

count-order 

first 

37 

second 

38) 

(chunk38 

isa 

count-order 

first 

38 

second 

39) 

(chunk39 

isa 

count-order 

first 

39 

second 

40) 

(chunk40 

isa 

count-order 

first 

40 

second 

41) 

(chunkll 

isa 

count-order 

first 

41 

second 

42) 

(chunk42 

isa 

count-order 

first 

42 

second 

43) 

(chunk43 

isa 

count-order 

first 

43 

second 

44) 

(chunk44 

isa 

count-order 

first 

44 

second 

45) 

(chunk45 

isa 

count-order 

first 

45 

second 

46) 

(chunk46 

isa 

count-order 

first 

46 

second 

47) 

(chunk47 

isa 

count-order 

first 

47 

second 

48) 

(chunklS 

isa 

count-order 

first 

48 

second 

49) 

(chunk49 

isa 

count-order 

first 

49 

second 

50) 

(chunkSO 

isa 

count-order 

first 

50 

second 

51) 

(chunkSl 

isa 

count-order 

first 

51 

second 

52) 

(chunk52 

isa 

count-order 

first 

52 

second 

53) 

(chunk53 

isa 

count-order 

first 

53 

second 

54) 

(chunkSl 

isa 

count-order 

first 

54 

second 

55) 

(chunkSS 

isa 

count-order 

first 

55 

second 

56) 

(chunkSS 

isa 

count-order 

first 

56 

second 

57) 

(chunk57 

isa 

count-order 

first 

57 

second 

58) 

(chunkSS 

isa 

count-order 

first 

58 

second 

59) 

(chunkS9 

isa 

count-order 

first 

59 

second 

60) 

(chunkSO 

isa 

count-order 

first 

60 

second 

61) 

(chunkSl 

isa 

count-order 

first 

61 

second 

62) 

(chunk62 

isa 

count-order 

first 

62 

second 

63) 

(chunk63 

isa 

count-order 

first 

63 

second 

64) 

(chunkSl 

isa 

count-order 

first 

64 

second 

65) 

(chunkSS 

isa 

count-order 

first 

65 

second 

66) 

(chunkSS 

isa 

count-order 

first 

66 

second 

67) 

(chunkS7 

isa 

count-order 

first 

67 

second 

68) 

(chunkSS 

isa 

count-order 

first 

68 

second 

69) 

(chunkS9 

isa 

count-order 

first 

69 

second 

70) 

(chunk70 

isa 

count-order 

first 

70 

second 

71) 

(chunk71 

isa 

count-order 

first 

71 

second 

72) 

(chunk72 

isa 

count-order 

first 

72 

second 

73) 

(chunk73 

isa 

count-order 

first 

73 

second 

74) 

(chunk74 

isa 

count-order 

first 

74 

second 

75) 

(chunk7S 

isa 

count-order 

first 

75 

second 

76) 

(chunk7S 

isa 

count-order 

first 

76 

second 

77) 

(chunk77 

isa 

count-order 

first 

77 

second 

78) 

(chunk78 

isa 

count-order 

first 

78 

second 

79) 

(chunk79 

isa 

count-order 

first 

79 

second 

80) 

(chunkSO 

isa 

count-order 

first 

80 

second 

81) 
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(chunkSl 

isa 

count-order 

first 

81 

second 

82) 

(chunk82 

isa 

count-order 

first 

82 

second 

83) 

(chunk83 

isa 

count-order 

first 

83 

second 

84) 

(chunk84 

isa 

count-order 

first 

84 

second 

85) 

(chunk85 

isa 

count-order 

first 

85 

second 

86) 

(chunk86 

isa 

count-order 

first 

86 

second 

87) 

(chunk87 

isa 

count-order 

first 

87 

second 

88) 

(chunk88 

isa 

count-order 

first 

88 

second 

89) 

(chunk89 

isa 

count-order 

first 

89 

second 

90) 

(chunk90 

isa 

count-order 

first 

90 

second 

91) 

(chunk91 

isa 

count-order 

first 

91 

second 

92) 

(chunk92 

isa 

count-order 

first 

92 

second 

93) 

(chunk93 

isa 

count-order 

first 

93 

second 

94) 

(chunk94 

isa 

count-order 

first 

94 

second 

95) 

(chunk95 

isa 

count-order 

first 

95 

second 

96) 

(chunk96 

isa 

count-order 

first 

96 

second 

97) 

(chunk97 

isa 

count-order 

first 

97 

second 

98) 

(chunk98 

isa 

count-order 

first 

98 

second 

99) 

(chunk99 

isa 

count-order 

first 

99 

second 

100) 

(chunklOO  isa  count-order  first  100  second  101)) 


;;  we  have  three  competing  productions  (begin-task,  scan-for-targets  and  listen-f or-problem) 
; ;  which  represent  competing  goals  of  the 
;;  multi-task  environment. 

(P  begin-task 
=beginl> 

isa  begin 
=outl> 

isa  outside 
sound  =sound 
target  =target 

!bind!  =newvar  (actr-time) 

[output!  =newvar 

leval!  (timetracker  =newvar) 

!push!  =outl 

) 

(P  check-target 
=checkl> 

isa  check 
=outsidel> 

isa  outside 
sound  0 

target  =target 
=targetl> 

isa  target 


!  bind ! 

!  output ! 
!  eval ! 


=newvar  (actr-time) 
=newvar 

(timetracker  =newvar ) 


) 


!pop! 


; ;  This  production  will  fire  if  we  have  a  sound  -  a  math  problem  -  and  a  target  happening  at 
;;  the  same  time.  In  other  words,  since  we  have  both  things  going  on  at  once,  we  really  have 
; ;  no  time  to  double-check  the  target  to  make  sure  it  is  correct.  So  we  look  at  the  target 
; ;  once  and  make  our  shoot  decision. 

(P  cant-check-target 
=checkl> 

isa  check 
=outl> 

isa  outside 
sound  1 

target  =target 
=shootl> 
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isa  shoot 


!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 

!push!  =shootl 

) 

(P  shoot-decision 
=shootl> 
isa  shoot 
=outl> 

isa  outside 
target  =target 

=outl> 

target  0 
!  pop ! 

!  pop ! 

!  pop ! 

) 

(P  problem- complete 
=outl> 

isa  outside 
sound  0 
target  0 
=insidel> 

isa  inside 
problemcomplete  0 
=probleml> 

isa  problem 
=targetl> 

isa  target 

!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 


Ipush!  =probleml 


(P  scan-f or-targets 
=outl> 

isa  outside 
sound  =sound 
target  1 
=insidel> 

isa  inside 

problemcomplete  =problemcomplete 
=probleml> 

isa  problem 
=targetl> 

isa  target 

!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 

Ipush!  =targetl 

) 

(P  listen-f or-problem 
=outl> 

isa  outside 
sound  1 
target  0 
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=insidel> 

isa  inside 

problemcomplete  =problemcomplete 
=probleml> 

isa  problem 
=targetl> 

isa  target 

!bind!  =newvar  (actr-time) 

! output !  =newvar 

!eval!  (timetracker  =newvar) 


(P  identity-target 
=targetl> 
isa  target 
=targettypel> 
isa  targettype 
size  =size 
type  =type 
=checkl> 
isa  check 


!bind!  =newvar  (actr-time) 

[output!  =newvar 
[push!  =checkl 


(P  remember-problem 
=probleml> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=countfroml> 

isa  count-from 
start  =start 
=outl> 

isa  outside 
sound  =sound 
target  =target 


Ibind! 

! output ! 
! output ! 
! output ! 
!  eval ! 


=newvar  (actr-time ) 
=newvar 
=f irstnum 
=secondnum 

(timetracker  =newvar ) 


!  push !  =countf roml 


) 


(P  start-counting 
=countfroml> 

ISA  count-from 

start  0 

=goal> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=outl> 

isa  outside 
sound  0 

target  =target 
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=countfroml> 

start  =firstnum 


!  output ! 
!  output ! 


("~S"  =firstnum) 
{"~S"  =secondnum) 


Ibind!  =newvar  (actr-time) 

[output!  =newvar 


) 


(P  count 

=countfroml> 

isa  count-from 
start  =firstnum 
=probleml> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=outl> 

isa  outside 
target  =target 
sound  =sound 

!bind!  =newvar  (actr-time) 

! output !  =newvar 


!bind! 


=newtime  (1+  =thecounter) 


=incrementl> 

numl  =firstnum 
counter  =newtime 
=incrementl> 

! push !  =increment 1 
! output !  =f irstnum 

) 


; ;  Note  that  these  productions  are  slightly  different  than  the  increment  productions  provided 
;;  in  the  ACT-R  tutorials.  The  difference  is  that  the  count-order  chunk  doesn't  contain  the 
;;  answer  here,  whereas  in  the  ACT-R  tutorials  it  does.  I  didn't  like  the  fact  that  the  tutorial 
;;  basically  included  a  chunk  which  had  the  answer  to  the  increment  problem  as  a  slot. 

;;  If  the  answer  to 

;;  the  problem  was  already  stored,  it  shouldn't  be  a  problem,  you  could  just  do  a  retrieval. 

; ;  This  production  instead  increments 

; ;  a  certain  number  of  times  and  when  that  number  of  times  has  been  reached,  stops  and  gets 
; ;  the  answer.  In  other  words,  you  only  know  how  many  times  to  increment,  and  where  to  start. 

; ;  So  you  increment  a  certian  number  of  times,  then  you  stop  and  see  what  the  answer  is. 

(P  increment 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnum 
=probleml> 

isa  problem 
secondnum  =thesecond 
=outl> 

isa  outside 
target  0 

Ibind!  =newvar  (actr-time) 
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!  output ! 


=newvar 


!bind!  =newTime  (1+  =thecounter) 

leval!  (timetracker  =newvar) 

=incrementl> 

isa  increment 
numl  =secondnum 
counter  =newtime 
! output !  =secondnum 

) 


; ;  This  production  will  fire  if  there  is  also  a  target  showing  up  at  the  same  time  as  we  are 
;;  trying  to  increment  to  get  the  answer. 


(P  no -time -to- increment 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnum 
=probleml> 

isa  problem 
secondnum  =thesecond 
=outl> 

isa  outside 
target  1 

!bind!  =newvar  (actr-time) 

! output !  =newvar 

!bind!  =newTime  (1+  =thecounter) 

leval!  (timetracker  =newvar) 

1  pop ! 

1  pop ! 

1  pop ! 


) 

(P  answer 

=incrementl> 

isa  increment 
numl  =numl 
counter  =counter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnumber 
=probleml> 

isa  problem 
secondnum  =counter 


!  output!  =secondnumber 
leval !  (zero) 

!pop! 

!pop! 

!pop! 
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(spp  ANSWER  :Q  1.0  :R  1.0  :A  0.05  :B  0  : STRENGTH  0.0  : VALUE  1) 
(spp  SCAN-FOR-TARGETS  :B  1) 

(spp  listen-f or-problem  :B  1) 


(goal-focus  beginl) 
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Appendix  B.  ACT-R  Code  for  2-second  Exposure  Time,  Auditory  Condition 


; ;  Troy  Kelley 

;;  Army  Research  Laboratory,  September  2002 

;;  This  is  code  that  simulates  data  taken  from  a  study  called  -The  Effect  of  Cognitive  Load 
; ;  and  Target  Characteristics  on  Soldier  Shooting  Performance  and  Friendly  Targets  Engaged-  by 
;;  David  R.  Scribner 


; ;  This  is  our  time  tracker  function  which  will  modify  chunks  at  certain  time  intervals 
;;  to  simulate  the  outside  world 

;; (defun  check  (x) ) 

(defun  zero  () 

(mod-chunk  insidel  problemcomplete  1)) 

; ;  2  second  cycle 


(defun  timetracker  (x) 

;;  at  zero  time  a  math  problem  starts  and  a  target  pops  up  -  this  is  set  in  our  declarative 
; ;  memory 


; ;  target  down  and  math  problem  completes 
(cond  ((and  (>  x  1.9)  (<  x  2.3)) 

(mod-chunk  outl  target  0  sound  0) ) ) 


; ;  target  up  -  2 

(cond  ((and  (>  x  4.9)  (<  x  5.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  5.9)  (<  x  6.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  6.9)  (<  x  7.3)) 

(mod-chunk  outl  target  0))) 


; ;  math  problem  completes 
(cond  ((and  (>  x  7.9)  (<  x  8.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  38  secondnum  8))) 

; ;  target  up  -  3 

(cond  ((and  (>  x  9.9)  (<  x  10.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts  and  target  down 
(cond  ((and  (>  x  11.9)  (<  x  12.3)) 

(mod-chunk  outl  sound  1  target  0) ) ) 

;  ;  problem  complete 

(cond  ((and  (>  x  13.9)  (<  x  14.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
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(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  29  secondnum  9))) 

; ;  target  up  -4 

(cond  ((and  (>  x  14.9)  (<  x  15.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  16.9)  (<  x  17.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  starts 

(cond  ((and  (>  x  17.9)  (<  x  18.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  up  and  end  listening  to  problem  -  5 
(cond  ((and  (>  x  19.9)  (<  x  20.3)) 

(mod-chunk  outl  target  1  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  39  secondnum  5) 
(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  21.9)  (<  x  22.3)) 

(mod-chunk  outl  target  0))) 

;;  math  problem  starts 
(cond  ((and  (>  x  23.9)  (<  x  24.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  up-6 

(cond  ((and  (>  x  24.9)  (<  x  25.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  25.9)  (<  x  26.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  34  secondnum  6))) 

; ;  target  down 

(cond  ((and  (>  x  26.9)  (<  x  27.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up  and  begin  next  problem-7 
(cond  ((and  (>  x  29.9)  (<  x  30.3)) 

(mod-chunk  outl  target  1  sound  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  completes  and  target  down 
(cond  ((and  (>  x  31.9)  (<  x  32.3)) 

(mod-chunk  outl  sound  0  target  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  88  secondnum  3))) 

; ;  target  up-8 

(cond  ((and  (>  x  34.9)  (<  x  35.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 
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; ;  math  problem  starts 

(cond  ((and  (>  x  35.9)  (<  x  36.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  36.9)  (<  x  37.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  completes 

(cond  ((and  (>  x  37.9)  (<  x  38.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  41  secondnum  9))) 

; ;  target  up-9 

(cond  ((and  (>  x  39.9)  (<  x  40.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down  and  problem  starts 
(cond  ((and  (>  x  41.9)  (<  x  42.3)) 

(mod-chunk  outl  sound  1  target  0) ) ) 

; ;  math  problem  completes 

(cond  ((and  (>  x  43.9)  (<  x  44.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  41  secondnum  9))) 

; ;  target  up-10 

(cond  ((and  (>  x  44.9)  (<  x  45.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  46.9)  (<  x  47.3)) 

(mod-chunk  outl  target  0))) 

;  ;  math  problem  starts 

(cond  ((and  (>  x  47.9)  (<  x  48.3)) 

(mod-chunk  outl  sound  1))) 


; ;  target  up  and  end  listening  to  problem-11 
(cond  ((and  (>  x  49.9)  (<  x  50.3)) 

(mod-chunk  outl  target  1  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  85  secondnum  6) 
(mod-chunk  targettypel  type  enemy) ) ) 


; ;  target  down 

(cond  ((and  (>  x  51.9)  (<  x  52.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 


; ;  target  up-12 

(cond  ((and  (>  x  54.9)  (<  x  55.3)) 

(mod-chunk  outl  sound  1))) 


; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  55.9)  (<  x  56.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  32  secondnum  9))) 


27 


; ;  target  down 

(cond  ((and  (>  x  56.9)  (<  x  57.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up  and  begin  next  problem-7 
(cond  ((and  (>  x  59.9)  (<  x  60.3)) 

(mod-chunk  outl  target  1  sound  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  completes  and  target  down 

(cond  ((and  (>  x  61.9)  (<  x  62.3)) 

(mod-chunk  outl  sound  0  target  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  88  secondnum  3))) 

; ;  target  up-8 

(cond  ((and  (>  x  64.9)  (<  x  65.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  65.9)  (<  x  66.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  66.9)  (<  x  67.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  completes 

(cond  ((and  (>  x  67.9)  (<  x  68.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  41  secondnum  9))) 

; ;  target  up-9 

(cond  ((and  (>  x  69.9)  (<  x  70.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down  and  problem  starts 
(cond  ((and  (>  x  71.9)  (<  x  72.3)) 

(mod-chunk  outl  sound  1  target  0) ) ) 

; ;  math  problem  completes 

(cond  ((and  (>  x  73.9)  (<  x  74.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  41  secondnum  9))) 

; ;  target  up-10 

(cond  ((and  (>  x  74.9)  (<  x  75.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  76.9)  (<  x  77.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  starts 

(cond  ((and  (>  x  77.9)  (<  x  78.3)) 

(mod-chunk  outl  sound  1))) 
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; ;  target  up  and  end  listening  to  problem-11 

(cond  ((and  (>  x  79.9)  (<  x  80.3)) 

(mod-chunk  outl  target  1  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  85  secondnum  6) 
(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  81.9)  (<  x  82.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  up-12 

(cond  ((and  (>  x  84.9)  (<  x  85.3)) 

(mod-chunk  outl  sound  1))) 

; ;  end  listening  to  math  problem 

(cond  ((and  (>  x  85.9)  (<  x  86.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  32  secondnum  9))) 

; ;  target  down 

(cond  ((and  (>  x  86.9)  (<  x  87.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up  and  begin  next  problem-7 
(cond  ((and  (>  x  89.9)  (<  x  90.3)) 

(mod-chunk  outl  target  1  sound  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  completes  and  target  down 

(cond  ((and  (>  x  91.9)  (<  x  92.3)) 

(mod-chunk  outl  sound  0  target  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  88  secondnum  3))) 

; ;  target  up-8 

(cond  ((and  (>  x  94.9)  (<  x  95.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  95.9)  (<  x  96.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  96.9)  (<  x  97.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  completes 

(cond  ((and  (>  x  97.9)  (<  x  98.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  41  secondnum  9))) 

; ;  target  up-9 

(cond  ((and  (>  x  99.9)  (<  x  100.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 
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; ;  target  down  and  problem  starts 
(cond  ((and  (>  x  101.9)  (<  x  102.3)) 

(mod-chunk  outl  sound  1  target  0) ) ) 

; ;  math  problem  completes 

(cond  ((and  (>  x  103.9)  (<  x  104.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  41  secondnum  9))) 

; ;  target  up-10 

(cond  ((and  (>  x  104.9)  (<  x  105.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  106.9)  (<  x  107.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  starts 

(cond  ((and  (>  x  107.9)  (<  x  108.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  up  and  end  listening  to  problem-11 
(cond  ((and  (>  x  109.9)  (<  x  110.3)) 

(mod-chunk  outl  target  1  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  85  secondnum  6) 
(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  111.9)  (<  x  112.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  up-12 

(cond  ((and  (>  x  114.9)  (<  x  115.3)) 

(mod-chunk  outl  sound  1))) 

; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  115.9)  (<  x  116.3)) 

(mod-chunk  outl  sound  0) 

(mod-chunk  insidel  problemcomplete  0) 
(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 
(mod-chunk  probleml  firstnum  32  secondnum  9))) 

; ;  target  down 

(cond  ((and  (>  x  116.9)  (<  x  117.3)) 

(mod-chunk  outl  target  0))) 


;  ;  ending  problem 

(cond  ((and  (>  x  125.9)  (<  x  126.3)) 

(mod-chunk  outl  target  nil  sound  nil) ) ) 


) 

(clear-all) 


(sgp  :lf  .1  :rt  0.0  :bll  .5  :blc  20  :ga  10.0  :al  2.0) 


(chunk-type  count-order  first  second) 
(chunk-type  count-from  start  end) 
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(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 


outside  sound  target) 
begin) 

problem  firstnum  secondnum) 
increment  numl  counter) 
target ) 

targettype  size  type) 
check) 

inside  soundcomplete  targetchecked  problemcomplete 
shoot ) 


0) 


(add-dm 

(checkl  isa  check) 

(beginl  isa  begin) 

(targetl  isa  target) 

(shootl  isa  shoot) 

(insidel  isa  inside  soundcomplete  0  targetchecked  0  problemcomplete  0) 
(targettypel  isa  targettype  size  0  type  enemy) 

(incrementl  isa  increment  numl  0  counter  0) 

(probleml  isa  problem  firstnum  55  secondnum  9) 

;;  first  outside  variable 

(outl  isa  outside  sound  1  target  1) 

(countfroml  isa  count-from  start  0) 

(chunkl  isa  count-order  first  1  second  2) 

(chunk2  isa  count-order  first  2  second  3) 

(chunks  isa  count-order  first  3  second  4) 

(chunkl  isa  count-order  first  4  second  5) 

(chunks  isa  count-order  first  5  second  6) 

(chunks  isa  count-order  first  6  second  7) 

(chunk?  isa  count-order  first  7  second  8) 

(chunks  isa  count-order  first  8  second  9) 
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(chunk49 

isa 

count-order 

first 

49 

second 
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;;  we  have  three  competing  productions  (begin-task,  scan-for-targets  and  listen-f or-problem) 
; ;  which  represent  competing  goals  of  the 

;;  multi-task  environment.  The  scan-for-targets  however  has  the  highest  priority 
; ;  so  we  will  do  that  one  over  the  listen-f or-sound  production,  which  basically 
;;  is  listening  for  each  math  problem. 

(P  begin-task 
=beginl> 

isa  begin 
=outl> 

isa  outside 
sound  =sound 
target  =target 

!bind!  =newvar  (actr-time) 

[output!  =newvar 

!eval!  (timetracker  =newvar) 
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!push!  =outl 

) 

(P  check-target 
=checkl> 

isa  check 
=outsidel> 

isa  outside 
sound  0 

target  =target 
=targetl> 

isa  target 


!bind!  =newvar  (actr-time) 

! output !  =newvar 

!eval!  (timetracker  =newvar) 

!pop! 

) 

(P  cant-check-target 
=checkl> 

isa  check 
=outl> 

isa  outside 
sound  1 

target  =target 
=shootl> 

isa  shoot 


!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 

!push!  =shootl 

) 

(P  shoot-decision 
=shootl> 
isa  shoot 
=outl> 

isa  outside 
target  =target 

=outl> 

target  0 
!  pop ! 

!  pop ! 

!  pop ! 

) 

(P  problem- complete 
=outl> 

isa  outside 
sound  0 
target  0 
=insidel> 

isa  inside 
problemcomplete  0 
=probleml> 

isa  problem 
=targetl> 

isa  target 

!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 


Ipush!  =probleml 
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) 


(P  scan-f or-targets 
=outl> 

isa  outside 
sound  =sound 
target  1 
=insidel> 

isa  inside 

problemcomplete  =problemcomplete 
=probleml> 

isa  problem 
=targetl> 

isa  target 


!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 

!push!  =targetl 

) 

(P  list en -for-pr obi em 
=outl> 

isa  outside 
sound  1 
target  0 
=insidel> 

isa  inside 

problemcomplete  =problemcomplete 
=probleml> 

isa  problem 
=targetl> 

isa  target 

!bind!  =newvar  (actr-time) 

! output !  =newvar 

!eval!  (timetracker  =newvar) 


(P  identify-target 
=targetl> 
isa  target 
=targettypel> 
isa  targettype 
size  =size 
type  =type 
=checkl> 
isa  check 


!bind!  =newvar  (actr-time) 

[output!  =newvar 
[push!  =checkl 

) 

(P  remember-problem 
=probleml> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=countfroml> 

isa  count-from 
start  =start 
=outl> 

isa  outside 
sound  =sound 
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target  =target 


!bind!  =newvar  (actr-time) 

! output !  =newvar 
! output !  =firstnum 
!  output !  =seconclnum 
!eval!  (timetracker  =newvar) 

! push !  =countf roml 


(P  start-counting 
=countfroml> 

ISA  count-from 

start  0 

=goal> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=outl> 

isa  outside 
sound  0 

target  =target 


=countfroml> 

start  =firstnum 

[output!  {"~S"  =firstnum) 

[output!  ("~S"  =secondnum) 

[bind!  =newvar  (actr-time) 

[output!  =newvar 


(P  count 

=countfroml> 

isa  count-from 
start  =firstnum 
=probleml> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=outl> 

isa  outside 
target  =target 
sound  =sound 

[bind!  =newvar  (actr-time) 

! output !  =newvar 

[bind!  =newtime  (1+  =thecounter) 

=incrementl> 

numl  =firstnum 
counter  =newtime 
=incrementl> 

! push !  =increment 1 
[output!  =f irstnum 

) 

(P  increment 
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=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnum 
=probleml> 

isa  problem 
secondnum  =thesecond 
=outl> 

isa  outside 
target  =target 

Ibind!  =newvar  (actr-time) 

! output !  =newvar 
! output !  =target 


!bind!  =newTime  (1+  =thecounter) 

=incrementl> 

isa  increment 
numl  =secondnum 
counter  =newtime 
! output !  =secondnum 


) 

(P  no -time -to- increment 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnum 
=probleml> 

isa  problem 
secondnum  =thesecond 
=outl> 

isa  outside 
target  1 

Ibind!  =newvar  (actr-time) 

! output !  =newvar 

Ibind!  =newTime  (1+  =thecounter) 

!eval!  (timetracker  =newvar) 

!  pop ! 

!  pop ! 

!  pop ! 


(P  answer 

=incrementl> 

isa  increment 
numl  =numl 
counter  =counter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnumber 
=probleml> 

isa  problem 
secondnum  =counter 


!  output!  =secondnumber 
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!eval !  (zero) 


!pop! 

!pop! 

!pop! 


) 

(spp  ANSWER  :Q  1.0  ;R  1.0  ;A  0.05  :B  0  : STRENGTH  0.0  : VALUE  1) 
(spp  SCAN-FOR-TARGETS  :B  1) 

(spp  listen-f or-problem  :B  1) 


(goal-focus  beginl) 
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Intentionally  left  blank 
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Appendix  C.  ACT-R  Code  for  2-second  Exposure  Time,  Visual  Condition 


; ;  Troy  Kelley 

;;  Army  Research  Laboratory,  September  2002 

;;  This  is  code  that  simulates  data  taken  from  a  study  called  -The  Effect  of  Cognitive  Load 
; ;  and  Target  Characteristics  on  Soldier  Shooting  Performance  and  Friendly  Targets  Engaged-  by 
;;  David  R.  Scribner 


; ;  This  is  our  time  tracker  function  which  will  modify  chunks  at  certain  time  intervals 
;;  to  simulate  the  outside  world 

; ;  Note  that  in  this  code  we  are  using  the  sound  slot  to  simulate  the  target  being  available 
;;  visually  for  a  certain  amount  of  time,  then  it  is  gone  when  the  sound  slot  is  set  back  to 
; ;  zero  -  see  the  4  second  code  for  more  complete  comments. 

; ; (defun  check  (x) ) 

(defun  zero  () 

(mod-chunk  insidel  problemcomplete  0) 

(mod-chunk  countfroml  start  0) 

(mod-chunk  incrementl  numl  0  counter  0) 

(mod-chunk  probleml  firstnum  38  secondnum  8)) 

; ;  2  second  cycle 


(defun  timetracker  (x) 

; ;  at  zero  time  a  math  problem  starts  and  a  target  pops  up  -  this  is  set  in  our  declarative 
; ;  memory 


; ;  target  down  and  math  problem  completes 
(cond  ((and  (>  x  1.9)  (<  x  2.3)) 

(mod-chunk  outl  target  0  sound  0) ) ) 


; ;  target  up  -  2 

(cond  ((and  (>  x  4.9)  (<  x  5.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  5.9)  (<  x  6.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  6.9)  (<  x  7.3)) 

(mod-chunk  outl  target  0))) 


; ;  math  problem  completes 
(cond  ((and  (>  x  7.9)  (<  x  8.3)) 

(mod-chunk  outl  sound  0) ) ) 

; ;  target  up  -  3 

(cond  ((and  (>  x  9.9)  (<  x  10.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts  and  target  down 
(cond  ((and  (>  x  11.9)  (<  x  12.3)) 

(mod-chunk  outl  sound  1  target  0) ) ) 

;  ;  problem  complete 
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(cond  ((and  (>  x  13.9)  (<  x  14.3)) 

(mod-chunk  outl  sound  0) ) ) 

; ;  target  up  -4 

(cond  ((and  (>  x  14.9)  (<  x  15.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  16.9)  (<  x  17.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  starts 

(cond  ((and  (>  x  17.9)  (<  x  18.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  up  and  end  listening  to  problem  -  5 
(cond  ((and  (>  x  19.9)  (<  x  20.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  down 

(cond  ((and  (>  x  21.9)  (<  x  22.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  starts 
(cond  ((and  (>  x  23.9)  (<  x  24.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  up-6 

(cond  ((and  (>  x  24.9)  (<  x  25.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  25.9)  (<  x  26.3)) 

(mod-chunk  outl  sound  0) ) ) 

; ;  target  down 

(cond  ((and  (>  x  26.9)  (<  x  27.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up  and  begin  next  problem-7 
(cond  ((and  (>  x  29.9)  (<  x  30.3)) 

(mod-chunk  outl  target  1  sound  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  completes  and  target  down 
(cond  ((and  (>  x  31.9)  (<  x  32.3)) 

(mod-chunk  outl  sound  0  target  0) ) ) 

; ;  target  up-8 

(cond  ((and  (>  x  34.9)  (<  x  35.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

; ;  math  problem  starts 

(cond  ((and  (>  x  35.9)  (<  x  36.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  36.9)  (<  x  37.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  completes 

(cond  ((and  (>  x  37.9)  (<  x  38.3)) 

(mod-chunk  outl  sound  0) ) ) 

; ;  target  up-9 

(cond  ((and  (>  x  39.9)  (<  x  40.3)) 
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(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down  and  problem  starts 
(cond  ((and  (>  x  41.9)  (<  x  42.3)) 

(mod-chunk  outl  sound  1  target  0) ) ) 

; ;  math  problem  completes 

(cond  ((and  (>  x  43.9)  (<  x  44.3)) 

(mod-chunk  outl  sound  0) ) ) 

; ;  target  up-10 

(cond  ((and  (>  x  44.9)  (<  x  45.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  46.9)  (<  x  47.3)) 

(mod-chunk  outl  target  0))) 

;  ;  math  problem  starts 

(cond  ((and  (>  x  47.9)  (<  x  48.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  up  and  end  listening  to  problem-11 
(cond  ((and  (>  x  49.9)  (<  x  50.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  down 

(cond  ((and  (>  x  51.9)  (<  x  52.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  up-12 

(cond  ((and  (>  x  54.9)  (<  x  55.3)) 

(mod-chunk  outl  sound  1))) 

; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  55.9)  (<  x  56.3)) 

(mod-chunk  outl  sound  0)  )  ) 

; ;  target  down 

(cond  ((and  (>  x  56.9)  (<  x  57.3)) 

(mod-chunk  outl  target  0))) 

;  target  up  and  begin  next  problem-7 
(cond  ((and  (>  x  59.9)  (<  x  60.3)) 

(mod-chunk  outl  target  1  sound  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  completes  and  target  down 
(cond  ((and  (>  x  61.9)  (<  x  62.3)) 

(mod-chunk  outl  sound  0  target  0) ) ) 

; ;  target  up-8 

(cond  ((and  (>  x  64.9)  (<  x  65.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 

;  ;  math  problem  starts 

(cond  ((and  (>  x  65.9)  (<  x  66.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  66.9)  (<  x  67.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  completes 

(cond  ((and  (>  x  67.9)  (<  x  68.3)) 

(mod-chunk  outl  sound  0) ) ) 
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; ;  target  up-9 

(cond  ((and  (>  x  69.9)  (<  x  70.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down  and  problem  starts 
(cond  ((and  (>  x  71.9)  (<  x  72.3)) 

(mod-chunk  outl  sound  1  target  0) ) ) 

; ;  math  problem  completes 

(cond  ((and  (>  x  73.9)  (<  x  74.3)) 

(mod-chunk  outl  sound  0) ) ) 

; ;  target  up-10 

(cond  ((and  (>  x  74.9)  (<  x  75.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  76.9)  (<  x  77.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  starts 

(cond  ((and  (>  x  77.9)  (<  x  78.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  up  and  end  listening  to  problem-11 
(cond  ((and  (>  x  79.9)  (<  x  80.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  down 

(cond  ((and  (>  x  81.9)  (<  x  82.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  up-12 

(cond  ((and  (>  x  84.9)  (<  x  85.3)) 

(mod-chunk  outl  sound  1))) 

; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  85.9)  (<  x  86.3)) 

(mod-chunk  outl  sound  0) ) ) 

; ;  target  down 

(cond  ((and  (>  x  86.9)  (<  x  87.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up  and  begin  next  problem-7 
(cond  ((and  (>  x  89.9)  (<  x  90.3)) 

(mod-chunk  outl  target  1  sound  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  completes  and  target  down 
(cond  ((and  (>  x  91.9)  (<  x  92.3)) 

(mod-chunk  outl  sound  0  target  0) ) ) 


; ;  target  up-8 

(cond  ((and  (>  x  94.9)  (<  x  95.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  starts 
(cond  ((and  (>  x  95.9)  (<  x  96.3)) 

(mod-chunk  outl  sound  1))) 


; ;  target  down 

(cond  ((and  (>  x  96.9)  (<  x  97.3)) 

(mod-chunk  outl  target  0))) 
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; ;  math  problem  completes 

(cond  ((and  (>  x  97.9)  (<  x  98.3)) 

(mod-chunk  outl  sound  0) ) ) 

; ;  target  up-9 

(cond  ((and  (>  x  99.9)  (<  x  100.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down  and  problem  starts 
(cond  ((and  (>  x  101.9)  (<  x  102.3)) 

(mod-chunk  outl  sound  1  target  0) ) ) 

; ;  math  problem  completes 
(cond  ((and  (>  x  103.9)  (<  x  104.3)) 

(mod-chunk  outl  sound  0) ) ) 

; ;  target  up-10 

(cond  ((and  (>  x  104.9)  (<  x  105.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  106.9)  (<  x  107.3)) 

(mod-chunk  outl  target  0))) 

; ;  math  problem  starts 
(cond  ((and  (>  x  107.9)  (<  x  108.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  up  and  end  listening  to  problem-11 
(cond  ((and  (>  x  109.9)  (<  x  110.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  down 

(cond  ((and  (>  x  111.9)  (<  x  112.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  up-12 

(cond  ((and  (>  x  114.9)  (<  x  115.3)) 

(mod-chunk  outl  sound  1))) 

; ;  end  listening  to  math  problem 
(cond  ((and  (>  x  115.9)  (<  x  116.3)) 

(mod-chunk  outl  sound  0)  )  ) 

; ;  target  down 

(cond  ((and  (>  x  116.9)  (<  x  117.3)) 

(mod-chunk  outl  target  0))) 


;  ;  ending  problem 

(cond  ((and  (>  x  125.9)  (<  x  126.3)) 

(mod-chunk  outl  target  nil  sound  nil) ) ) 


) 

(clear-all) 


( sgp  : If  . 1 
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(chunk-type 


problem  firstnum  secondnum) 
increment  numl  counter) 
target ) 

targettype  size  type) 
check) 

inside  soundcomplete  targetchecked  problemcomplete 
shoot ) 


0) 


(add-dm 

(checkl  isa  check) 

(beginl  isa  begin) 

(targetl  isa  target) 

(shootl  isa  shoot) 

(insidel  isa  inside  soundcomplete  0  targetchecked  0  problemcomplete  0) 
(targettypel  isa  targettype  size  0  type  enemy) 

(incrementl  isa  increment  numl  0  counter  0) 
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count-order 

first 

67 

second 

68) 

(chunk68 

isa 

count-order 

first 

68 

second 

69) 

(chunk69 

isa 

count-order 

first 

69 

second 

70) 

(chunk70 

isa 

count-order 

first 

70 

second 

71) 

(chunk71 

isa 

count-order 

first 

71 

second 

72) 

(chunk72 

isa 

count-order 

first 

72 

second 

73) 

(chunk73 

isa 

count-order 

first 

73 

second 

74) 

(chunk74 

isa 

count-order 

first 

74 

second 

75) 

(chunk75 

isa 

count-order 

first 

75 

second 

76) 

(chunk76 

isa 

count-order 

first 

76 

second 

77) 

(chunk77 

isa 

count-order 

first 

77 

second 

78) 

(chunk78 

isa 

count-order 

first 

78 

second 

79) 

(chunk79 

isa 

count-order 

first 

79 

second 

80) 

(chunkSO 

isa 

count-order 

first 

80 

second 

81) 

(chunkSl 

isa 

count-order 

first 

81 

second 

82) 

(chunk82 

isa 

count-order 

first 

82 

second 

83) 

(chunk83 

isa 

count-order 

first 

83 

second 

84) 

(chunk84 

isa 

count-order 

first 

84 

second 

85) 

(chunk85 

isa 

count-order 

first 

85 

second 

86) 

(chunk86 

isa 

count-order 

first 

86 

second 

87) 

(chunk87 

isa 

count-order 

first 

87 

second 

88) 

(chunk88 

isa 

count-order 

first 

88 

second 

89) 

(chunk89 

isa 

count-order 

first 

89 

second 

90) 

(chunk90 

isa 

count-order 

first 

90 

second 

91) 

(chunk91 

isa 

count-order 

first 

91 

second 

92) 

(chunk92 

isa 

count-order 

first 

92 

second 

93) 

(chunk93 

isa 

count-order 

first 

93 

second 

94) 

(chunk94 

isa 

count-order 

first 

94 

second 

95) 

(chunk95 

isa 

count-order 

first 

95 

second 

96) 

(chunk96 

isa 

count-order 

first 

96 

second 

97) 

(chunk97 

isa 

count-order 

first 

97 

second 

98) 

(chunk98 

isa 

count-order 

first 

98 

second 

99) 

(chunk99 

isa 

count-order 

first 

99 

second 

100) 

(chunklOO  isa  count-order  first  100  second  101)) 


;;  we  have  three  competing  productions  (begin-task,  scan-for-targets  and  listen-f or-problem) 
; ;  which  represent  competing  goals  of  the 

;;  multi-task  environment.  The  scan-for-targets  however  has  the  highest  priority 
; ;  so  we  will  do  that  one  over  the  listen-f or-sound  production,  which  basically 
;;  is  listening  for  each  math  problem. 

(P  begin-task 
=beginl> 

isa  begin 
=outl> 

isa  outside 
sound  =sound 
target  =target 

!bind!  =newvar  (actr-time) 

[output!  =newvar 

leval!  (timetracker  =newvar) 

!push!  =outl 

) 
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(P  check-target 
=checkl> 

isa  check 
=outsidel> 

isa  outside 
sound  0 

target  =target 
=targetl> 

isa  target 


!bind!  =newvar  (actr-time) 

! output !  =newvar 

!eval!  (timetracker  =newvar) 

!pop! 

) 

(P  cant-check-target 
=checkl> 

isa  check 
=outl> 

isa  outside 
sound  1 

target  =target 
=shootl> 

isa  shoot 


!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 

!push!  =shootl 

) 

(P  shoot-decision 
=shootl> 
isa  shoot 
=outl> 

isa  outside 
target  =target 


=outl> 

target  0 
!  pop ! 

!  pop ! 

!  pop ! 

(P  problem-complete 
=outl> 

isa  outside 
sound  0 
target  0 
=insidel> 

isa  inside 
problemcomplete  0 
=probleml> 

isa  problem 
=targetl> 

isa  target 


Ibind!  =newvar  (actr-time) 

!  output !  =newvar 

leval!  (timetracker  =newvar) 


!push!  =probleml 


;;) 
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(P  scan-f or-targets 
=outl> 

isa  outside 
sound  =sound 
target  1 
=insidel> 

isa  inside 

problemcomplete  =problemcomplete 
=probleml> 

isa  problem 
=targetl> 

isa  target 


!  bind ! 

! output ! 
!  eval ! 


=newvar  (actr-time) 
=newvar 

(time tracker  =newvar ) 


!push!  =targetl 

) 

(P  look-at -problem 
=outl> 

isa  outside 
sound  1 
target  0 
=insidel> 

isa  inside 

problemcomplete  =problemcomplete 
=probleml> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=targetl> 

isa  target 


!  bind ! 

!  output ! 
!  eval ! 


=newvar  (actr-time) 
=newvar 

(timetr acker  =newvar ) 


) 


!  push ! 


=probleml 


(P  identity-target 
=targetl> 
isa  target 
=targettypel> 
isa  targettype 
size  =size 
type  =type 
=checkl> 
isa  check 


!bind!  =newvar  (actr-time) 

[output!  =newvar 
!push!  =checkl 


(P  remember-problem 
=probleml> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=countfroml> 
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isa  count-from 
start  =start 
=outl> 

isa  outside 
sound  =sound 
target  =target 


Ibind! 

! output ! 
! output ! 
! output ! 
!  eval ! 


=newvar  ( act r- time ) 
=newvar 
=f irstnum 
=secondnum 

(timetr acker  =newvar ) 


!  push !  =countf roml 


) 


(P  start-counting 
=countfroml> 

ISA  count-from 

start  0 

=goal> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=outl> 

isa  outside 
sound  =sound 
target  =target 


=countfroml> 

start  =firstnum 


[output!  {"~S"  =firstnum) 

[output!  {"~S"  =secondnum) 


[bind!  =newvar  (actr-time) 

[output!  =newvar 


) 


(P  count 

=countfroml> 

isa  count-from 
start  =firstnum 
=probleml> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=outl> 

isa  outside 
target  =target 
sound  =sound 

[bind!  =newvar  (actr-time) 

! output !  =newvar 

[bind!  =newtime  (1+  =thecounter) 


=incrementl> 

numl  =firstnum 
counter  =newtime 
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=incrementl> 

! push !  =increment 1 
! output !  =firstnum 

) 

(P  increment 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnum 
=probleml> 

isa  problem 
secondnum  =thesecond 
=outl> 

isa  outside 
target  =target 


!bind! 

!  output ! 
!  output ! 
!  eval ! 


=newvar  ( act r- time ) 

=newvar 

=target 

(timetr acker  =newvar ) 


Ibind!  =newTime  (1+  =thecounter) 

=incrementl> 

isa  increment 
numl  =secondnum 
counter  =newtime 
! output !  =secondnum 


) 

(P  no -time -to- increment 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnum 
=probleml> 

isa  problem 
secondnum  =thesecond 
=outl> 

isa  outside 
target  1 

!bind!  =newvar  (actr-time) 

! output !  =newvar 

Ibind!  =newTime  (1+  =thecounter) 

leval!  (timetracker  =newvar) 

!  pop ! 

!  pop ! 

!  pop ! 


) 

(P  answer 

=incrementl> 

isa  increment 
numl  =numl 
counter  =counter 
=countfrom> 

isa  count-order 
first  =numl 
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second  =secondnumber 
=probleml> 

isa  problem 
secondnum  =counter 


[output!  =secondnumber 
!eval !  (zero) 

!pop! 

!pop! 

!pop! 

!pop! 


) 

(spp  ANSWER  :Q  1.0  ;R  1.0  ;A  0.05  ;B  0  ; STRENGTH  0.0  : VALUE  1) 
(spp  SCAN-FOR-TARGETS  :B  1) 

(spp  Look-at-problem  :B  1) 


(goal-focus  beginl) 


50 


Appendix  D.  ACT-R  Code  for  2-second  Exposure  Time,  No  Load 


; ;  Troy  Kelley 

;;  Army  Research  Laboratory,  September  2002 

;;  This  is  code  that  simulates  data  taken  from  a  study  called  -The  Effect  of  Cognitive  Load 
; ;  and  Target  Characteristics  on  Soldier  Shooting  Performance  and  Friendly  Targets  Engaged-  by 
;;  David  R.  Scribner 


; ;  This  is  our  time  tracker  function  which  will  modify  chunks  at  certain  time  intervals 
;;  to  simulate  the  outside  world 

;; (defun  check  (x) ) 

(defun  zero  () 

(mod-chunk  insidel  problemcomplete  1)) 

; ;  2  second  cycle 


(defun  timetracker  (x) 

;;  at  zero  time  a  math  problem  starts  and  a  target  pops  up  -  this  is  set  in  our  declarative 
; ;  memory 


; ;  target  down  and  math  problem  completes 
(cond  ((and  (>  x  1.9)  (<  x  2.2)) 

(mod-chunk  outl  target  0  sound  0) ) ) 


; ;  target  up  -  2 

(cond  ((and  (>  x  4.9)  (<  x  5.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 
; ;  target  down 

(cond  ((and  (>  x  6.9)  (<  x  7.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up  -  3 

(cond  ((and  (>  x  9.9)  (<  x  10.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 
; ;  target  down 

(cond  ((and  (>  x  11.9)  (<  x  12.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up  -4 

(cond  ((and  (>  x  14.9)  (<  x  15.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 


; ;  target  down 

(cond  ((and  (>  x  16.9)  (<  x  17.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up 

(cond  ((and  (>  x  19.9)  (<  x  20.3)) 

(mod-chunk  outl  target  1) 

)  ) 


; ;  target  down 
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(cond  ((and  (>  x  21.9)  (<  x  22.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up-6 

(cond  ((and  (>  x  24.9)  (<  x  25.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 


; ;  target  down 

(cond  ((and  (>  x  26.9)  (<  x  27.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up 

(cond  ((and  (>  x  29.9)  (<  x  30.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  math  problem  completes  and  target  down 
(cond  ((and  (>  x  31.9)  (<  x  32.3)) 

(mod-chunk  outl  target  0) 

)  ) 

; ;  target  up-8 

(cond  ((and  (>  x  34.9)  (<  x  35.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down 

(cond  ((and  (>  x  36.9)  (<  x  37.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up-9 

(cond  ((and  (>  x  39.9)  (<  x  40.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down 

(cond  ((and  (>  x  41.9)  (<  x  42.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up-10 

(cond  ((and  (>  x  44.9)  (<  x  45.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  46.9)  (<  x  47.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up 

(cond  ((and  (>  x  49.9)  (<  x  50.3)) 

(mod-chunk  outl  target  1) 

)  ) 

; ;  target  down 

(cond  ((and  (>  x  51.9)  (<  x  52.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  up-12 

(cond  ((and  (>  x  54.9)  (<  x  55.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 
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(cond  ((and  (>  x  56.9)  (<  x  57.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up 

(cond  ((and  (>  x  59.9)  (<  x  60.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down 

(cond  ((and  (>  x  61.9)  (<  x  62.3)) 

(mod-chunk  outl  target  0) 

)  ) 

; ;  target  up-8 

(cond  ((and  (>  x  64.9)  (<  x  65.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down 

(cond  ((and  (>  x  66.9)  (<  x  67.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up-9 

(cond  ((and  (>  x  69.9)  (<  x  70.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down 

(cond  ((and  (>  x  71.9)  (<  x  72.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up-10 

(cond  ((and  (>  x  74.9)  (<  x  75.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  76.9)  (<  x  77.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up 

(cond  ((and  (>  x  79.9)  (<  x  80.3)) 

(mod-chunk  outl  target  1) 

)  ) 

; ;  target  down 

(cond  ((and  (>  x  81.9)  (<  x  82.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  up-12 

(cond  ((and  (>  x  84.9)  (<  x  85.3)) 

(mod-chunk  outl  sound  1))) 


; ;  target  down 

(cond  ((and  (>  x  86.9)  (<  x  87.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up 

(cond  ((and  (>  x  89.9)  (<  x  90.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down 


53 


(cond  ((and  (>  x  91.9)  (<  x  92.3)) 

(mod-chunk  outl  target  0) 

)  ) 

; ;  target  up-8 

(cond  ((and  (>  x  94.9)  (<  x  95.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 
; ;  target  down 

(cond  ((and  (>  x  96.9)  (<  x  97.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up-9 

(cond  ((and  (>  x  99.9)  (<  x  100.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  f riendlyGray) ) ) 


; ;  target  down 

(cond  ((and  (>  x  101.9)  (<  x  102.3)) 

(mod-chunk  outl  target  0))) 

; ;  target  up-10 

(cond  ((and  (>  x  104.9)  (<  x  105.3)) 

(mod-chunk  outl  target  1) 

(mod-chunk  targettypel  type  enemy) ) ) 

; ;  target  down 

(cond  ((and  (>  x  106.9)  (<  x  107.3)) 

(mod-chunk  outl  target  0))) 


; ;  target  up 

(cond  ((and  (>  x  109.9)  (<  x  110.3)) 

(mod-chunk  outl  target  1) 

)  ) 

; ;  target  down 

(cond  ((and  (>  x  111.9)  (<  x  112.3)) 

(mod-chunk  outl  target  1  sound  0) ) ) 

; ;  target  up-12 

(cond  ((and  (>  x  114.9)  (<  x  115.3)) 

(mod-chunk  outl  sound  1))) 

; ;  target  down 

(cond  ((and  (>  x  116.9)  (<  x  117.3)) 

(mod-chunk  outl  target  0))) 


; ;  ending  problem 

(cond  ((and  (>  x  125.9)  (<  x  126.3)) 

(mod-chunk  outl  target  nil) ) ) 


) 

(clear-all) 


(sgp  :lf  .1  : rt  0.0  :bll  .5  :blc  20  :ga  10.0  :al  2.0) 


(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 

(chunk-type 


count-order  first  second) 
count-from  start  end) 
outside  target) 
begin) 

problem  firstnum  secondnum) 
increment  numl  counter) 
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(chunk-type  target) 

(chunk-type  targettype  size  type) 

(chunk-type  check) 

(chunk-type  inside  soundcomplete  targetchecked  problemcomplete  0) 
(chunk-type  shoot) 


(add-dm 

(checkl  isa  check) 

(beginl  isa  begin) 

(targetl  isa  target) 

(shootl  isa  shoot) 

(insidel  isa  inside  soundcomplete  0  targetchecked  0  problemcomplete  0) 
(targettypel  isa  targettype  size  0  type  enemy) 

(incrementl  isa  increment  numl  0  counter  0) 

(probleml  isa  problem  firstnum  55  secondnum  9) 

;;  first  outside  variable 
(outl  isa  outside  target  1) 

(countfroml  isa  count-from  start  0) 

(chunkl  isa  count-order  first  1  second  2) 

(chunk2  isa  count-order  first  2  second  3) 

(chunks  isa  count-order  first  3  second  4) 

(chunk4  isa  count-order  first  4  second  5) 

(chunks  isa  count-order  first  5  second  6) 

(chunks  isa  count-order  first  6  second  7) 

(chunk?  isa  count-order  first  7  second  8) 

(chunks  isa  count-order  first  8  second  9) 


(chunk9  isa  count-order  first  i 

5  second  10) 

(chunklO 

isa 

count-order 

first 

10 

second 

11) 

(chunkll 

isa 

count-order 

first 

11 

second 

12) 

(chunkl2 

isa 

count-order 

first 

12 

second 

13) 

(chunklS 

isa 

count-order 

first 

13 

second 

14) 

(chunkl4 

isa 

count-order 

first 

14 

second 

15) 

(chunklS 

isa 

count-order 

first 

15 

second 

16) 

(chunklS 

isa 

count-order 

first 

16 

second 

17) 

(chunkl? 

isa 

count-order 

first 

17 

second 

18) 

(chunklS 

isa 

count-order 

first 

18 

second 

19) 

(chunkl9 

isa 

count-order 

first 

19 

second 

20) 

(chunk20 

isa 

count-order 

first 

20 

second 

21) 

(chunk21 

isa 

count-order 

first 

21 

second 

22) 

(chunk22 

isa 

count-order 

first 

22 

second 

23) 

(chunk23 

isa 

count-order 

first 

23 

second 

24) 

(chunk24 

isa 

count-order 

first 

24 

second 

25) 

(chunk25 

isa 

count-order 

first 

25 

second 

26) 

(chunk26 

isa 

count-order 

first 

26 

second 

27) 

(chunk27 

isa 

count-order 

first 

27 

second 

28) 

(chunk28 

isa 

count-order 

first 

28 

second 

29) 

(chunk29 

isa 

count-order 

first 

29 

second 

30) 

(chunkSO 

isa 

count-order 

first 

30 

second 

31) 

(chunkSl 

isa 

count-order 

first 

31 

second 

32) 

(chunk32 

isa 

count-order 

first 

32 

second 

33) 

(chunk33 

isa 

count-order 

first 

33 

second 

34) 

(chunk34 

isa 

count-order 

first 

34 

second 

35) 

(chunk35 

isa 

count-order 

first 

35 

second 

36) 

(chunk36 

isa 

count-order 

first 

36 

second 

37) 

(chunks? 

isa 

count-order 

first 

37 

second 

38) 

(chunk38 

isa 

count-order 

first 

38 

second 

39) 

(chunk39 

isa 

count-order 

first 

39 

second 

40) 

(chunk40 

isa 

count-order 

first 

40 

second 

41) 

(chunk41 

isa 

count-order 

first 

41 

second 

42) 

(chunk42 

isa 

count-order 

first 

42 

second 

43) 

(chunk43 

isa 

count-order 

first 

43 

second 

44) 

(chunk44 

isa 

count-order 

first 

44 

second 

45) 

(chunk45 

isa 

count-order 

first 

45 

second 

46) 

(chunk46 

isa 

count-order 

first 

46 

second 

47) 

(chunk4? 

isa 

count-order 

first 

47 

second 

48) 

(chunk48 

isa 

count-order 

first 

48 

second 

49) 

(chunk49 

isa 

count-order 

first 

49 

second 

50) 

(chunkSO 

isa 

count-order 

first 

50 

second 

51) 

(chunkSl 

isa 

count-order 

first 

51 

second 

52) 

(chunk52 

isa 

count-order 

first 

52 

second 

53) 
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(chunk53 

isa 

count-order 

first 

53 

second 

54) 

(chunk54 

isa 

count-order 

first 

54 

second 

55) 

(chunk55 

isa 

count-order 

first 

55 

second 

56) 

(chunk56 

isa 

count-order 

first 

56 

second 

57) 

(chunk57 

isa 

count-order 

first 

57 

second 

58) 

(chunk58 

isa 

count-order 

first 

58 

second 

59) 

(chunk59 

isa 
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;;  we  have  three  competing  productions  (begin-task,  scan-for-targets  and  listen-f or-problem) 
; ;  which  represent  competing  goals  of  the 

;;  multi-task  environment.  The  scan-for-targets  however  has  the  highest  priority 
; ;  so  we  will  do  that  one  over  the  listen-f or-sound  production,  which  basically 
;;  is  listening  for  each  math  problem. 

(P  begin-task 
=beginl> 

isa  begin 
=outl> 

isa  outside 
target  =target 

!bind!  =newvar  (actr-time) 

[output!  =newvar 

!eval!  (timetracker  =newvar) 

!push!  =outl 


(P  check-target 
=checkl> 


56 


isa  check 
=outsidel> 

isa  outside 
target  1 
=targetl> 

isa  target 


!bind!  =newvar  (actr-time) 

! output !  =newvar 

!eval!  (timetracker  =newvar) 

!pop! 

) 

(P  cant-check-target 
=checkl> 

isa  check 
=outl> 

isa  outside 
target  0 
=shootl> 

isa  shoot 


!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 

!push!  =shootl 

) 

(P  shoot-decision 
=shootl> 
isa  shoot 
=outl> 

isa  outside 
target  =target 


=outl> 

target  0 
!  pop ! 

!  pop ! 

!  pop ! 

) 

(P  problem- complete 
=outl> 

isa  outside 
target  0 
=insidel> 

isa  inside 
problemcomplete  0 
=probleml> 

isa  problem 
=targetl> 

isa  target 

!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 


Ipush!  =probleml 


) 

(P  scan-f or-targets 
=outl> 

isa  outside 
target  1 
=insidel> 
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isa  inside 

problemcomplete  =problemcomplete 
=probleml> 

isa  problem 
=targetl> 

isa  target 

!bind!  =newvar  (actr-time) 

! output !  =newvar 
! eval !  (timetracker  =newvar) 

!push!  =targetl 

) 

; ; (P  listen-f or-problem 
;;  =outl> 

;;  isa  outside 

; ;  target  0 

;;  =insidel> 

; ;  isa  inside 

; ;  problemcomplete  =problemcomplete 

; ;  =probleml> 

; ;  isa  problem 

;;  =targetl> 

; ;  isa  target 

; ;  ==> 

;;  !bind!  =newvar  (actr-time) 

;;  ! output !  =newvar 

;;  ! eval !  (timetracker  =newvar) 

;;) 


(P  identity-target 
=targetl> 
isa  target 
=targettypel> 
isa  targettype 
size  =size 
type  =type 
=checkl> 
isa  check 


!bind!  =newvar  (actr-time) 

[output!  =newvar 
!push!  =checkl 

) 

(P  remember-problem 
=probleml> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=countfroml> 

isa  count-from 
start  =start 
=outl> 

isa  outside 
target  =target 


Ibind! 

! output ! 
! output ! 
! output ! 
!  eval ! 


=newvar  (actr-time ) 
=newvar 
=f irstnum 
=secondnum 

(timetracker  =newvar ) 


!  push !  =countf roml 
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) 


(P  start-counting 
=countfroml> 

ISA  count-from 

start  0 

=goal> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=outl> 

isa  outside 
target  =target 


=countfroml> 

start  =firstnum 

[output!  ("~S"  =firstnum) 

[output!  {"~S"  =secondnum) 

[bind!  =newvar  (actr-time) 

[output!  =newvar 


(P  count 

=countfroml> 

isa  count-from 
start  =firstnum 
=probleml> 

isa  problem 
f irstnum  =f irstnum 
secondnum  =secondnum 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=outl> 

isa  outside 
target  =target 

[bind!  =newvar  (actr-time) 

! output !  =newvar 

[bind!  =newtime  (1+  =thecounter) 

=incrementl> 

numl  =firstnum 
counter  =newtime 
=incrementl> 

! push !  =increment 1 
[output!  =f irstnum 

) 

(P  increment 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnum 
=probleml> 

isa  problem 
secondnum  =thesecond 
=outl> 

isa  outside 
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target  =target 


!bind! 

!  output ! 
!  output ! 


=newvar  ( act r- time ) 

=newvar 

=target 


Ibind!  =newTime  (1+  =thecounter) 

=incrementl> 

isa  increment 
numl  =secondnum 
counter  =newtime 
! output !  =secondnum 


) 

(P  no -time -to- increment 
=incrementl> 

isa  increment 
numl  =numl 
counter  =thecounter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnum 
=probleml> 

isa  problem 
secondnum  =thesecond 
=outl> 

isa  outside 
target  1 

Ibind!  =newvar  (actr-time) 

! output !  =newvar 

Ibind!  =newTime  (1+  =thecounter) 

!eval!  (timetracker  =newvar) 

!  pop ! 

!  pop ! 

!  pop ! 


(P  answer 

=incrementl> 

isa  increment 
numl  =numl 
counter  =counter 
=countfrom> 

isa  count-order 
first  =numl 
second  =secondnumber 
=probleml> 

isa  problem 
secondnum  =counter 


!  output!  =secondnumber 
!eval !  (zero) 

!pop! 

!pop! 

!pop! 


) 

(spp  ANSWER  :Q  1.0  ;R  1.0  ;A  0.05  ;B  0  ; STRENGTH  0.0  : VALUE  1) 
(spp  SCAN-FOR-TARGETS  :B  1) 

;; (spp  listen-f or-problem  :B  1) 
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(goal-focus  beginl) 
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NO.  OF 

COPIES  ORGANIZATION 

I  ADMINISTRATOR 

DEFENSE  TECHNICAL  INFO  CTR 
ATTN  DTIC  OCA 

8725  JOHN  J  KINGMAN  RD  STE  0944 
ET  BEL  VOIR  VA  22060-6218 

1  DIRECTOR 

US  ARMY  RSCH  LABORATORY 
ATTN  AMSRL  Cl  IS  R  REC  MGMT 
2800  POWDER  MILL  RD 
ADELPHIMD  20783-1197 

1  DIRECTOR 

US  ARMY  RSCH  LABORATORY 
ATTN  AMSRL  Cl  OK  TECH  LIB 
2800  POWDER  MILL  RD 
ADELPHIMD  20783-1197 

1  DIRECTOR 

US  ARMY  RSCH  LABORATORY 
ATTN  AMSRL  D  D  SMITH 
2800  POWDER  MILL  RD 
ADELPHIMD  20783-1197 

1  US  ARMY  RESEARCH  LABORATORY 

ATTN  AMSRL  HR  M  M  STRUB 
6359  WALKER  LANE  STE  100 
ALEXANDRIA  VA  22310 

1  ARE  HRED  USAFAS  FED  ELMT 
ATTN  AMSRL  HR  MF  L  PIERCE 
BLDG  3040  RM  220 
EORT  SILL  OK  73503-5600 

1  ARE  HRED  AMCOM  FED  ELMT 
ATTN  AMSRL  HR  MD  T  COOK 
BLDG  5400  RM  C242 
REDSTONE  ARS  AL  35898-7290 

1  ARE  HRED  USAADASCH  FED  ELMT 
ATTN  ATSACD 

ATTN  AMSRL  HR  ME  K  REYNOLDS 
5800  CARTER  ROAD 
EORT  BLISS  TX  79916-3802 

1  ARE  HRED  AMCOM  FED  ELMT 
ATTN  AMSRL  HR  MI 
BLDG  5464  RM  202 

REDSTONE  ARSENAL  AL  35898-5000 

1  US  ARMY  RESEARCH  LABORATORY 

ATTN  AMSRL  HR  MM  N  VAUSE 
2250  STANLEY  RD  STE  322 
ET  SAM  HOUSTON  TX  78234 


NO.  OF 

COPIES  ORGANIZATION 

1  ARE  HRED  ARDEC  FED  ELMT 
ATTN  AMSRL  HR  MG  R  SPINE 
BUILDING  333 

PICATINNY  ARSENAL  NJ  07806-5000 

1  ARE  HRED  ARMC  FED  ELMT 
ATTN  AMSRL  HR  MH  C  BURNS 
BLDG  1002  ROOM  123 
1ST  CAVALRY  REGIMENT  RD 
ETKNOX  KY  40121 

1  ARE  HRED  ATEC  FED  ELMT 

ATTN  AMSRL  HR  MR  H  DENNY 
ATEC  CSTE  PM  ARE 
4501  LORD  AVE  RM  870 
ALEXANDRIA  VA  22302-1458 

1  ARE  HRED  AVNC  ELD  ELMT 
ATTN  AMSRL  HR  Ml  D  DURBIN 
BLDG  4506  (DCD)  RM  107 
ET  RUCKER  AL  36362-5000 

1  ARE  HRED  CECOM  ELD  ELMT 
ATTN  AMSRL  HR  ML  J  MARTIN 
MYER  CENTER  RM  2D3 1 1 
ET  MONMOUTH  NJ  07703-5630 

1  ARE  HRED  FT  BELVOIR  FED  ELMT 
ATTN  AMSRL  HR  MK  J  REINHART 
10170  BEACH  RD 
EORT  BELVOIR  VA  22060-5800 

1  ARE  HRED  FT  HOOD  ELD  ELMT 
ATTN  AMSRL  HR  MV  HQ  USAOTC 
S  MIDDLEBROOKS 
91012  STATION  AVE  RM  348 
ETHOODTX  76544-5073 

1  ARE  HRED  FT  HUACHUCA  FED  ELMT 
ATTN  AMSRL  HR  MY  M  BARNES 
2520  HEALY  AVE 
BLDG  51005  STE  1172 
ET  HUACHUCA  AZ  85613 

1  ARE  HRED  HFID  ELD  ELMT 

ATTN  AMSRL  HR  MP  D  UNGV ARSKY 
BATTLE  CMD  BATTLE  LAB 
415  SHERMAN  AVE  UNIT  3 
ET  LEAVENWORTH  KS  66027-2326 

1  ARE  HRED  FEW  FED  ELMT 

ATTN  AMSRL  HR  MZ  A  DAVISON 
320  MANSCEN  LOOP  STE  166 
ET  LEONARD  WOOD  MO  65473-8929 
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COPIES  ORGANIZATION 


1  ARE  HRED  NATICK  FED  ELMT 

ATTN  AMSRL  HR  MQ  M  R  FLETCHER 
NATICK  SOLDIER  CTR  AMSSB  RSS  E 
BLDG  3  RM34I 
NATICK  MA  01760-5020 

1  ARE  HRED  SC&FG  ELD  ELMT 
ATTN  AMSRL  HR  MS  R  ANDERS 
SIGNAL  TOWERS  RM  303A 
EORT  GORDON  GA  30905-5233 

I  ARE  HRED  PEO  STRI  ELD  ELMT 
ATTN  AMSRL  HR  MT  A  GALBAVY 
12350  RESEARCH  PARKWAY 
ORLANDO  FL  32826-3276 

I  ARE  HRED  TACOM  FED  ELMT 

ATTN  AMSRL  HR  MU  M  SINGAPORE 
6501  E  1 1  MILE  RD  MAIL  STOP  284 
BLDG  200A  2ND  FL  RM  2104 
WARREN  MI  48397-5000 

1  ARE  HRED  USAIC  FED  ELMT 

ATTN  AMSRL  HR  MW  E  REDDEN 
BLDG  4  ROOM  332 
ETBENNING  GA  31905-5400 

1  ARE  HRED  USASOC  FED  ELMT 

ATTN  AMSRL  HR  MN  R  SPENCER 
DCSFDI  HE 

HQ  USASOC  BLDG  E2929 
EORT  BRAGG  NC  28310-5000 

1  CDR  AMC  -  FAST 
JRTC  &  FORT  POLK 

ATTN  AFZX  GT  DR  J  AINSWORTH 
CMD  SCIENCE  ADVISOR  G3 
EORT  POLK  LA  71459-5355 

ABERDEEN  PROVING  GROUND 

2  DIRECTOR 

US  ARMY  RSCH  LABORATORY 
ATTN  AMSRL  Cl  OK  (TECH  LIB) 
BLDG  305  APGAA 

1  LIBRARY 
ARE  HRED 
BLDG  459 

2  ARE  HRED 

ATTN  AMSRL  HR  MB  F  PARAGALLO 
AMSRL  HR  MC  J  HAWLEY 
BLDG  459 
APG-AA 
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